Select Code to Download

#!/usr/bin/perl -w
use CGI;
...
    my @args = $event->args;
    $self->send_im($nick, "Hi $nick. You said: $args[2]");
}

sub newconn {
   my $self = shift;
...
   # return 1;  # bzzt, we need to return the object
   return $conn;
}