Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
close $out;
select $previous;
print "$infile -> $outfile\n";