#!D:/Perl/bin/perl.exe 
use Win32::AuthenticateUser;
@result = AuthenticateUser("domain", "smith", "abc123");
print @result;