I decided to use Win32::OLE instead. Win32::OLE worked perfectly, Ex:

$target = Win32::OLE-> GetObject("WinNT://$server");
print "OLE Error: ".Win32::OLE->LastError)."\n";
$user = $target-> Create("user", wacka);
print "OLE Error: ".Win32::OLE->LastError)."\n";
$set=$user->SetInfo;
[download]

Thanks for your feedback.