look at the IRC::Bot module. this has been done many times before. also, take a look at Perl IRC Bot Skeleton (although it uses Net::IRC instead of POE.)

~Particle *accelerates*