15a16
> use win32;
39c40,45
<     my $home = $ENV{HOME} || (getpwuid($>))[7];
---
>     my $home;
>     if ($^O =~ /Win32/i) {
>         $home = $ENV{HOMEDRIVE}.$ENV{HOMEPATH} || Win32::GetFolderPath( "Win32::CSIDL_PERSONAL" );
>     } else {
>         $home = $ENV{HOME} || (getpwuid($>))[7];
>     }