Select Code to Download

open my $fh, 'uuu.txt';
my @new = map { s/\s+//g; } <$fh>;
...
open $fh '>uuu.txt';
print $fh @new;
close $fh;

open my $fh, 'uuu.txt';
open my $gh, '| bzip2 -9 -c > /tmp/uuu.txt.bz2'; # or gzip if no bzip2
...
   unlink '/tmp/uuu.txt.bz2';
   exit 256;
}