print $sock qq(sel 8767\n); print $sock qq(slogin superadmin *****\n);