Help for this page

Select Code to Download


  1. or download this
    open FILE, '<', $filename
      or die "Can't open $filename: $!\n";
    my @lines = <FILE>;
    close FILE
      or die "Can't close $filename: $!\n";