Select Code to Download

...
local $/="\n\n";
open my $inFile, "<", $file  or die "Unable to open $file: $!";
while(<$inFile>){
    ...