my $version_lookup =  [

    [],           # Win32s (not sure what goes here)

    [ undef, "Windows95", "Windows98", "WindowsMe" ],

    [ undef, undef, undef, "NT 3", "NT 4", "Windows 2000"]

];



my @winver = Win32::GetOSVersion();



printf "Operating System is %s", $version_lookup->[$winver[4]]->[$winver[1]];