my $login_name = getlogin;

my $path = "C:\\Documents and Settings\\$login_name\\My Documents\\";