$command = sprintf('exec - %s -c env', (getpwuid($>))[8]);
$ENV{'HOME'} = (getpwuid($>))[7];
$env = `$command`;