Help for this page

Select Code to Download


  1. or download this
    print "#$_" while defined $_ = <>;
  2. or download this
    open my $info, '<', $file or die "Can't open '$file': $!\n";
  3. or download this
    local @ARGV = $file;
local $^I = '.bak';

print "#$_" while defined $_ = <>;