Select Code to Download

use warnings;
use strict;
...
        print $fh $_;
}
close $fh;

use warnings;
use strict;
...
        print $outfh $_;
}
$repl->finish;