Public feed #723750

Something

public text v1 · immutable
Raw Edit
·published 2007-10-03 00:29 UTC
rendered paste body
#!/usr/bin/perl
use warnings;

use IO::Socket;
my $sock = new IO::Socket::INET (
                PeerAddr => 'xelix.net',
                PeerPort => '20400',
                Prot     => 'tcp',
                Timeout  => 10,

) || die("Failed to create sock $!\n");

print "Connecting\n";

while (1) {
$buf = scalar<$sock>;
        print $buf;
}