use IO::Socket;$| = 1;
$sock = new IO::Socket::INET(LocalPort => 8080,
Listen => 5,
Reuse => 1,
Type => SOCK_STREAM);
binmode($sock); # umbruch ausschalten
while ($client = $sock->accept())
{
binmode($client); #umbruch ausschalten
############################################ system to connect
$peer = <$client>;
if ($peer =~ /connect (.*?):(.*?)/i){
$peer = $1;
$port = 9898;
$target = new IO::Socket::INET(PeerAddr => $peer, PeerPort => $port, Proto => 'tcp');
print $client "connect to $peer:$port\n";
}
else {
print "Error- $peer\n";
}
############################################
if (fork() == 0)
{
while (<$client>)
{
print $target $_;
}
exit 0;
}
else
{
while (<$target>)
{
print $client $_;
}
exit 0;
}
}
Socket RealTime
