Help for this page

Select Code to Download

Select or download this

open( F, $file ) || die "Can't open $file - $!";
while (<F>) {
  print $_;
  next;
}