Select Code to Download

my $file = './test_file';

...
    print;
}
close $FILE || die "failed to open $fname ($!)\n";