Select Code to Download

open my $in,  '<:raw', $in_filename  or die ...;
open my $out, '>:raw', $out_filename or die ...;
...
}
close $in  or die ..;
close $out or die ... ;