Select Code to Download

use constant VER_PLATFORM_WIN32_WINDOWS => 1;  # Win9x line
use constant VER_PLATFORM_WIN32_NT      => 2;  # WinNT line
...
);

my $os = $oses{$id_str};