irssi Perl scripts