#!/usr/bin/perl
#
use IO::Socket;

my $sock = IO::Socket::INET->new(qq(127.0.0.1:1234));

{
print $sock qq(sel 9000\n);
print $sock qq(slogin superadmin 1234 \n);
print $sock qq(fp Gast\n);

$sock->recv($text,128);
print "\nReceived message '", $text,"'\n";