.........
print $sock qq(slogin $login $password\n);
print $sock qq(dbuserid Satan); <--- Dieser Befehl gibt die userid (2233) aus