Perl scripts for irssi