s použitím implicitní proměnné, toto řešení je "nejperlovštější"

 #!/usr/bin/perl
 open DATAF, 'data.txt' or die 'Nelze otevřít soubor';
 print while (<DATAF>);

jinak, možná přehlednější a zřejmější pro ty, kteří dělají např. v Pascalu:

 #!/usr/bin/perl
 if (open DATAF, 'data.txt') {
   while ($radek = <DATAF> ) { 
    print $radek;
   }
   close DATAF;
 } 
 else {
   print "Nelze otevřít soubor data.txt \n";
 }