9 Usage: $0 server my-nick target-nick [target-nick ...]
13 my $server = shift or usage;
14 my $mynick = shift or usage;
15 my @targetnicks = @ARGV;
16 usage if $#targetnicks == -1;
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->whois(@targetnicks);
31 my ($self, $event) = @_;
32 my $nick = ($event->args)[1];
33 print "$nick is online\n";
43 $conn->add_handler('376', \&on_connect);
44 $conn->add_handler('311', \&on_whoisuser);
45 $conn->add_handler('318', \&on_endofwhois);