use Win32API::Net; print <<"END"; Content-type: text/html END my %data = (); if (Win32API::Net::UserGetInfo( "", "", 3, \%data)) { print "Got the Data!"; } else { print Win32::FormatMessage(Win32::GetLastError())." (".Win32::GetLastError().")"; } print <<"END"; END