Select Code to Download

 #!/usr/bin/perl
use strict;
use warnings;
...

}

my $out = $file;
$out =~ s/\.\w+?$/.out/;