my $realhome;
if ($^O eq 'MSWin32') {
  use Win32 ('CSIDL_LOCAL_APPDATA');
  $realhome = Win32::GetFolderPath('CSIDL_LOCAL_APPDATA');
}
(defined $realhome) ? print "realhome:  $realhome\n" : print "\$realhome not defined\n";