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