use Win32::LanMan qw(NetUserGetInfo);

Win32::Lanman::NetUserGetInfo("","Administrator",\%info);

foreach $key (keys %info)
{
	print $key . " = " . $info{$key} . "\n";
}