#!/usr/bin/perl -w

use strict;
use warnings FATAL => 'all';

my ($username, $domain) = split(/@/, $ARGV[0]);
my $password = $ARGV[1];

system("/usr/bin/ntlm_auth --request-nt-key --domain=${domain} --username=${username} --password=${password}");

exit($? >> 8);