#!D:/Perl/bin/perl.exe -w
use strict; #always.
use Win32::AuthenticateUser;

# My version of Win32::AuthenticateUser did not export the function.
my $result = Win32::AuthenticateUser::AuthenticateUser(
             "domain", "smith", "abc123");
print $result ? 'Authentic User' : 'Unknown User or Password';