sub handle_privmsg (@_)
{
        my ($who,$ident,$host,$where,$what,$client) = @_;
        print "$who said $what in $where\n";
        if (!($what =~ /^\.heard\s*?$/)) {
                print "$who said $what in $where\n";
                $lastheard{$who} = time();
                $whatsaid{$who} = $what;
                if ($where eq "nipples") {
                        $wheresaid{$who} = "private message";
                }
                else
                {
                        $wheresaid{$who} = $where;
                }
        }