Select Code to Download

open my $in,  '<:raw', 'infile.dat' or die $!;
open my $out, '>:raw', 'outfile.dat' or die $!;
...
}
close $in or die $!;
close $out or die $!;