sub listen() {
$local = IO::Socket::INET->new(Listen=>1,
                               Proto=>'tcp',
                               LocalAddr=>'eth0'
                               LocalPort=>5000,
                               ReuseAddr=>1,) or die "$!";
$local->autoflush(1);
$addr = $local->accept();

$remotehost = $addr->peerhost ;
$remoteport = $addr->peerport ;

print "Connected from: $remotehost:$remoteport\n";
print "Command> ";
while($comm = <STDIN>) {
                print $addr $comm;
                sub closeback() {exit(0)}
                        while(sysread($addr,$buffer,1024)) {
                                print $buffer;
                                last;
                        }
                        print "Command> ";
        }
}