if(`hostname` eq 'athena'){  # or ($^O =~ /win/i)
  $tempdir = '/usr/tmp';
}else{
  $tempdir = '/tmp';
}