a quick cpan search for "home" yields File::HomeDir (and File::HomeDir::Win32) and File::Save::Home .. see the File::Save::Home for some discussion/notes on the differences and where the windows locations are.
Comment on Re: cross-platform way to get home directory