Shell Programming and Scripting

spawn sub {
            $|=1;
	    print "BindRouter>";
	    my $cmd;
	    chop($cmd=<stdin>);
	    my @argz=split(/:/,$cmd);
	    print stderr "Received connection from :",inet_ntoa($iaddr),"\n";
	    my $sock=IO::Socket::INET->new("@argz[0]:@argz[1]");
	    if($sock){
	    print "Connected\n";

	    my $thres = threads->new(\&readx($sock));
	    my $threx = threads->new(\&readf($sock));

		while($sock){
		}
		kill($thres);
		kill($threx);
 	    }else{
	    print "can't connect!\n";
            }

        };

sub readf{
my $socket=@_[0];
my $buf;
while($socket){
$buf=<$socket>;
print $buf;
}
}


sub readx{
my $socket=@_[0];

my $buf;
while($socket){
$buf=<stdin>; #stdin is the client
print $socket $buf;
}

}