#!/Perl/bin/perl.exe   

use Win32::AuthenticateUser;

$result = AuthenticateUser('', 'jdoe', '12345');

print "error is $^E\n";
print $result;