# handle CTCP {LOOK,OGLE}
sub _lookpm {
    my $line=shift(@_);
    my @pargv=split(/ /,$line);
    my $who=(split('!',$pargv[0],2))[0];
    my $serv=IRC::get_info(3);
    my $nick=IRC::get_info(1);
    my $context=$pargv[2];
. . .