if(-d "/tmp"){$temp = "/tmp"} else {$temp = $ENV{TEMP}}