sub get_login_env {
  local %ENV;
  my $shell = shift || (getpwuid($<))[8];
  my $env = `echo env | perl -e 'exec {"$shell"} -sh'`;
  if (wantarray) {
    $env =~ s/\\(.)/$1/gs;
    return map {split /=/, $_, 2} map {split /\n/, $_} $env;
  }
  else {
    return $env;
  }
}