l35.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use warnings;
   4
   5 -e "some.txt" or die "Нет такого файла.\n";
   6
   7 open(my $fh ,"<some.txt") or die "Не могу открыть файл\n";
   8
   9 print $_ while <$fh>;