Select Code to Download

Select or download this

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

Select or download this

Undefined subroutine &main::CSIDL_LOCAL_APPDATA called at import.pl li
+ne 11.

Select or download this

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.

Select or download this

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

Select or download this

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

Select or download this

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