Select Code to Download

open my $inData, '<', $tmpfile or die "Can't open $tmpfile: $!";
while (defined (my $data = <$inData>)) {
...
close $inData;

print "\n";