use strict;
use Win32;
use Win32::Lanman;

my %info;
my $server="pdc";
my $user="username";

if (Win32::Lanman::NetUserGetInfo($server, $user, \%info)){
		print "$info{name} is $info{full_name}";
}
else {print Win32::Lanman::GetLastError()}