use Win32 qw(CSIDL_SYSTEM);

print Win32::GetFolderPath(CSIDL_SYSTEM);