Help for this page

Select Code to Download


  1. or download this
    $file = "$ARGV[1]";

...
print OUT @out;

close OUT;
  2. or download this
    #!/usr/bin/perl
use strict;
...
print $out @out;

close $out;