Perl IRC bot I wrote in high school