#!/usr/bin/perl

use IO::Socket;
use Socket;

$nick = "JkId";
$chan = "#cybershade.org";

$conn = new IO::Socket::INET(PeerAddr => "theseraphim.mine.nu", PeerPort => '6667', Proto => "tcp") or die "Get with it...?";

print $conn "NICK $nick\n\r";
print $conn "USER JBot 8 * :IRCBot\r\n";
print $conn "JOIN $chan\r\n";

while ($body = <$conn>) {
chop $body

	if($body =~ /^PING(.*)$/i) {
		print $conn "PONG $1 \r\n"; 
	}

	if($body =~ /^!op(.*)$/i) {
		print "$conn "$chan mode +o $1";
	}
}