Select Code to Download

#!/usr/bin/env perl
use strict;
...
}
close($ifh);
close($ofh);

#!/usr/bin/env perl
use strict;
...
use File::Copy;

copy('infile.txt', 'outfile.txt') or die("Ooops, i messed up: $!");