IRC Interactive Bot In Perl