Select Code to Download

{
    local ($\ , $, , $/, $_) = ("\n", "\t", \1034);
    my $somefmt = 'ccc v V '; # add the rest of the format
...
    close $out or die $!;
    close $in or die $!;
}