Select Code to Download

use warnings;
use strict;
...
    print "\n";
}
print "+", (("-"x16)."+")x4, "\n";

use warnings;
use strict;
...
print $ofh do { local $/; <$ifh> };
close $ifh;
close $ofh;