An IRC Bot coded in Perl