use IO::Socket;

 = "irc.not-a-bot.net";
 = 1337;
 = "#test";
 = "perlbot";

 = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "", PeerPort => "") || die "Failed to connect to :\n";
print  "NICK \r\n"; 
print  "USER    \r\n";
print  "JOIN \r\n";
print  "PRIVMSG  :Hello\r\n";
while(<>) {
	print ;
	if(/PING/) {
		 = ;
		 =~ s/PING/PONG/;
		print  ;
	} elsif(/PRIVMSG/) {
		 = ;
		 =~ s/\r\n//; # Remove \r\n
		@tokens = split /:/, ; # Split line into tokens
		@command = split / /, @tokens[1]; # Split second token (first is just blank in this case)
		@message = split / /, @tokens[2]; # Split third token
		@user = split /!/, @command[0]; # Split first command token, which is USERNAME!USERHOST
		if( =~ m/.exit/) {
			print  "PRIVMSG  :Exit command sent by  ()\r\n";
			print  "QUIT :\r\n";
			close ;
		}
		if( =~ m/.join/) {
			print  "PRIVMSG  :Join command sent by  ()\r\n";
			print  "JOIN \r\n";
		}
		if( =~ m/.msg/) {
			print  "PRIVMSG  :Message command sent by  ()\r\n";
			print  "PRIVMSG  :\r\n";
		}
	}
}