Perl script to fire growl notifications from IRSSI