Help for this page

Select Code to Download


  1. or download this
    open (IN, "< $file")
  or warn ("Can't open $file: $!\n"), die;
...
}

close(IN);
  2. or download this
    open (IN, "< $file")
  or warn ("Can't open $file: $!\n"), die;
...
print "$_\n" for @data;

close(IN);
  3. or download this
    open (IN, "< $file")
  or warn ("Can't open $file: $!\n"), die;
...
print ("$file ==> $data\n");

close(IN);