Perl Scripts for Irssi