Win32 Perl

#!/usr/bin/perl -w
use Win32;
$isnt = Win32::IsWinNT();
if ($isnt) {
    print "Running Windows NT\n";
}