write relay.pl for irssi