print $sock qq(slogin $login $password\n);  # >>> slogin LOGIN PASSWORD

print scalar <$sock>;                       # <<< OK

print $sock qq(dbuserid Satan\n);           # >>> dbuserid USER

my $uid =  <$sock>;                         # <<< ID

chomp($uid);

print $sock qq(kick $uid\n);                # >>> kick ID