sub logger{
   my $self = shift;
   my %hunt = (
      url      => '',
      referrer => '',
      tracker  => '',
      host     => '',
   @_);
   $self->{DBH}->do(qq(
      INSERT INTO log (url, referrer, tracker, host) values
                      (?,     ?,        ?,       ?), {},
      @hunt{qw(        url referrer tracker    host)})
   ));
}