Next IPTables::IPv4::IPQueue #24            

Modifying Packets (continued)

    use IO::Socket;

    my $server = IO::Socket::INET->new
        (LocalPort => 4242, Reuse => 1, Listen => 1);

    my $client = $server->accept;

    for (split //, "Hello, FOO\n") {
        print $client $_;
        $client->flush;
        sleep 1;
    }
    [mct@ellesmere ~]$ telnet quint 4242
    Trying 207.8.132.210...
    Connected to quint.netisland.net.
    Escape character is '^]'.
    Hello, FOO


            Next © 2003 Michael C. Toren