Select Code to Download

open(TEMP,">$tmpfile") || die "Can't create $tmpfile.\n";
foreach $i (@indata)
...

close(TEMP);