use strict;

my $profile = $ENV{'USERPROFILE'};

print $profile, "\n"; # $profile contains the path to the user's profile
                      # usually located in C:\Documents and Settings\user