Short irssi script for all server events

It took me a long time to understand the irssi documentation on how to write a Perl script and connect it to the signals (events) provided by the irssi modules.

Here's a minimal script that taps into the most basic signal, "server event". Hope it provides a working start for experimenting with the raw signals documentation (http://irssi.org/documentation/signals).

sub server_event {
  my ($server, $data, $nick, $address) = @_;
  print "$nick, $address, $data"
}
Irssi::signal_add("server event", "server_event");

Put this into ~/.irssi/scripts/minimal.pl and load with "/script run minimal".