C:\>perl
use Win32;
local $\ = $/;
print for Win32::GetOSName(),Win32->VERSION;
__END__
Win2000
Service Pack 3
0.191

C:\>