my @winver = Win32::GetOSVersion();

print "Windows 2000" if $winver[1] == 5 and $winver[4] == 2;