in reply to Windows Username

Untested, I have no windows. 
my $username =  $ENV{USERNAME};

[download]
Boris

In Section Seekers of Perl Wisdom