momo33, Im not sure if this will help you but I use my perl scripts in XP and win7, and here are the things I use to find the correct paths.. good luck :)
$user = getlogin(); # get username
if(-e(-d("C:/users"))){$users = "users";} #check if exists
elsif(-e(-d("C:/Documents and Settings"))){
$users = "Documents and Settings";
}
$OS = $^O;