my $HOME = $ENV{'HOME'} || ( getpwuid $> )[7] 
  or die "Uh oh, I've been evicted...\n";