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

use Authen::Smb;
my $authResult = Authen::Smb::authen('username','passwd',
                                     '//PDC', '//BDC',
                                     'NT_DOMAIN');

if ( $authResult == 0 ) {
    print "User successfully authenticated.\n";
} else {
    print "User not authenticated with error level $authResult\n";
}