Select Code to Download

##################
print "Once\n";
...


##################

my $infile  = "/tmp/foo.in";
my $outfile = "/tmp/foo.out";
...
close(DATA_IN);

system("rm $infile $outfile");