Select Code to Download

#!/usr/bin/perl
use strict;
...
my $temp_file = $ENV{'APPDATA'} . '\test.tmp';
print "|$temp_file|\n";
open(my $fh, '>', $temp_file) or die "Error opening $temp_file $!\n";