on = "uescsd v.proto";


my $sock = new IO::Socket::INET (
#       LocalHost => 'localhost',
        LocalPort => '7022',
        Proto => 'tcp',
        Listen => 1,
        Reuse => 1
        );
die "Could not create socket: $!\n" unless $sock;
while (my $new_sock = $sock->accept) {
        my $thr = threads->new(\&shell, $new_sock);
}