my $user = getlogin() || `whoami`;
$user =~ s/\n$//;