if ($^O eq 'MSWin32') {
    require Win32;
    import qw(CSIDL_LOCAL_APPDATA);
    $realhome =  Win32::GetFolderPath( CSIDL_LOCAL_APPDATA() );
}