use Win32API::Net;

my %info     = ();
my $server   = "wonderland";
my $username = "The Mad Hatter";

UserGetInfo($server, $username, 10, \%info);
print "$username is $info{fullName} \n";