[Skeleton Man]

Change this:

Code:

if(!Win32::Lanman::NetUserAdd("\\\\doomsday", {'name' => \$name,
'password' => \$pass,
'comment' => 'perl test addition'}))
{
print "Sorry, account could not be created...";
print Win32::Lanman::GetLastError();
exit 1;
}

To this:

Code:

if(!Win32::Lanman::NetUserAdd("\\\\doomsday", {'name' => $name,
'password' => $pass,
'comment' => 'perl test addition'}))
{
print "Sorry, account could not be created...";
print Win32::Lanman::GetLastError();
exit 1;
}

Note the removal of the "\" from infront of $name and $pass..