my $a = getlogin()
