sub event_join {
my ($server, $channel, $nick, $address) =@_;
 Irssi::print("$nick joined $channel with ip $address");
 Irssi::signal_stop();
}

Irssi::signal_add('event join', 'event_join');