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";
 }