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

$host = shift;
$port = shift;

$MySocket = new IO::Socket::INET->new("$host:$port") or die "connect: $@";
$command  = "EDMSFT\|ISL\|\@\n";
$MySocket->send($command);
while (1) {
$MySocket->recv($text,128);
print "$text\n";
}
close $MySocket;