9 Usage: $0 server my-nick target-channel
14 my $server = shift or usage;
15 my $mynick = shift or usage;
16 my $targetchannel = shift or usage;
18 my $irc = new Net::IRC;
20 my $conn = $irc->newconn(Nick => $mynick, Server => $server)
21 or die "$0: can't connect to IRC server";
26 $self->who($targetchannel);
31 my ($self, $event) = @_;
32 my ($me, $channel, $user, $host,
33 $server, $nick, $status, $realname) = $event->args;
34 printf "\%-12s \%s\n", $nick, $realname;
44 $conn->add_handler('376', \&on_connect);
45 $conn->add_handler('352', \&on_whoreply);
46 $conn->add_handler('315', \&on_endofwho);