Select Code to Download

use strict;
use warnings;

...
    or die "Couldn't create the concatenated file $destination: $!\n";
print OUT while (<>);
close OUT;