use File::HomeDir;
$home = File::HomeDir->users_home('foo');