Select Code to Download

use warnings;
use strict;
...
print for <$fh>;

close $fh

0
1
2
3
4

...
use IO::File;

my $fh = IO::File->new_tmpfile or die $!;
...