Help for this page

Select Code to Download

Select or download this

sub irc_public {
     my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2];
     my $nick = ( split /!/, $who )[0];
...
     }
     return;
 }