Select Code to Download

# handle CTCP {LOOK,OGLE}
sub _lookpm {
...
    my $man=IRC::get_info(1);
    my $booya=$x[2];
. . .

# handle CTCP {LOOK,OGLE}
sub _lookpm {
...
    my $nick=IRC::get_info(1);
    my $context=$pargv[2];
. . .