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

##</code><code>##

Undefined subroutine &main::CSIDL_LOCAL_APPDATA called at import.pl line 11.

##</code><code>##

F:\AAAother\data>perl -MExporter -e "require Win32; Exporter::import 'CSIDL_LOCAL_APPDATA'; print Win32::GetFolderPath( CSIDL_LOCAL_APPDATA() );"
Undefined subroutine &main::CSIDL_LOCAL_APPDATA called at -e line 1.

##</code><code>##

if ($^O eq 'MSWin32') {
    require Win32;
    print Win32::GetFolderPath( 0x001c ), "\n";
}

##</code><code>##

C:\Documents and Settings\kbuser\Local Settings\Application Data

##</code><code>##

    $realhome =  Win32::GetFolderPath( CSIDL_LOCAL_APPDATA()  );
    $realhome =~ s|(.*?)\\Local Settings(.*)|$1$2|;