IRC Bot in Perl