Help for this page

Select Code to Download

Select or download this

$home = $ENV{'HOME'} || $ENV{'LOGDIR'} ||
     (getpwuid($<))[7] || die "You're homeless!\n";