> perl -MWin32=CSIDL_LOCAL_APPDATA -le "print Win32::GetFolderPath(CSIDL_LOCAL_APPDATA)"
C:\Documents and Settings\DGolden\Local Settings\Application Data

##</code><code>##

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";

##</code><code>##

Argument "CSIDL_LOCAL_APPDATA" isn't numeric in subroutine entry at import.pl line 9.
realhome:  C:\Documents and Settings\kbuser\Desktop