my $id = (getpwuid($<))[0];
print qq($id\n);