Select Code to Download

use strict;
$ENV{TEMP} = "goo go";
my $temp = $ENV{TEMP} || "/tmp";
print "t $temp\n";