my $u = $^O =~ m/MSWin32/ ? getlogin : scalar(getpwuid($<)); print $u;
# ettinger

# This is perl, v5.8.8 built for i686-linux