Programa Básico em Perl: abre e mostra o conteúdo de um arquivo (famoso cat do unix/linux)

Criando um programa básico em perl, que abre arquivo e mostra na tela, semelhante ao cat do linux/unix.

Crie um arquivo com o seguinte conteúdo:

$> vim cat.pl

#!/usr//bin/perl


my ($fh,$filename,@arq);


open($fh,"<$ARGV[0]");

@arq = <$fh>;

print @arq;


##############################

em seguida dê as permissões de execução:

$> chmod +x cat.pl

e execute o arquivo passando qualquer arquivo como parâmetro, como no cat.

$> cat.pl arquivo.txt

O resultado será a exibição na tela do conteúdo do arquivo.txt.