#!/usr/bin/perl -w
use strict;
use IO::Socket;
my $sock = new IO::Socket::INET(PeerAddr => "irc.nitrousirc.net", 
																PeerPort => "6667", 
																Proto => 'tcp') or die "Can't connect\n";
#print $sock "PASS secretpass\r\n";
print $sock "NICK jiggahzz\r\n";
print $sock "USER foggle zfoggle sfoggle :ffoggle bfoggle\r\n";
print $sock "JOIN #rfi\r\n";
while (my $input = <$sock>){
	print "$input";
	if ($input =~ /433/){
		exit "Nick in use\n";
	}
	elsif ($input =~ /PING (.*)/){
		print $sock "PONG $1";
	}
}