# temp dir
sub TEMPDIR {
  return $ENV{ TMP }         # Linux
         || $ENV{ TEMP }     # Windows
         || $ENV{ TEMPDIR }  # ???
         || $ENV{ TMPDIR }   # Mac
         || undef;           
}

# Get User
sub USERNAME {
  return getlogin 
         || getpwuid( $< ) 
         || $ENV{ LOGNAME } 
         || $ENV{ USER } 
         || $ENV{ USERNAME } 
         || 'unknown';
}