Select Code to Download

use strict;
use warnings;
...
}

print calc($_), "\t$_\n" for @ARGV;

use strict;
use warnings;
...

print calc($test), $/;
unlink $test;

use strict;
use warnings;
...
close $out;

print calc('test.deleteme'), $/;