#!/usr/bin/perl
use IO::Socket;

MAIN:
for ($x=34;$x<61;$x++) {
	$sock = IO::Socket::INET->new(	PeerHost  => "irc.webchat.org",
					PeerPort  => 6667,
					LocalHost => "12.34.56.$x");

	so("USER coder . . :MadCamel");
	so("NICK MadCamel-");

	while (<$sock>) {
		print;
		so("PONG $1") if (/^PING (.+)/);
		so("NS IDENTIFY mypass") if (/376/);
		so("JOIN #vampirefreaks") if (/memo/i);
		next MAIN if (/KICK/ && /MadCamel/ && /freaks/i);
		next MAIN if (/access list/i);
		next MAIN if (/already in use/i);
	}
}
goto MAIN;
sub so { print $sock ("@_\n"); }