my first attempt to log

hello.pl

use vars qw($VERSION %IRSSI);
use Irssi;
use Eirotic;
use re '/x'; 

Irssi::signal_add "message public" , sub {
    my ( $srv, $msg, $nick, $address, $target ) = @_;

    state  $fh = do {
        open my $w, '>>','/tmp/logmetender';
        $w
    };

    say $fh join "\t"
        , $nick
        , $target
        , $$srv{chatnet}
        , $msg;
}