programming-examples/perl/Win32/Is windows NT.pl

#!/usr/bin/perl -w
use Win32;

$isnt = Win32::IsWinNT();

if ($isnt) {
    print "Running Windows NT\n";
}