Try changing
my $nh = $tags->{nh}||10;
my $mh = $tags->{maxhits}||100;
to
my $nh = $tags->{nh};
my $mh = $tags->{maxhits};
$nh =~ /\d+/ || $nh=1;
$mh =~ /\d+/ || $mh = 100;
Not sure why it isn't reading the $tags in though.
my $nh = $tags->{nh}||10;
my $mh = $tags->{maxhits}||100;
to
my $nh = $tags->{nh};
my $mh = $tags->{maxhits};
$nh =~ /\d+/ || $nh=1;
$mh =~ /\d+/ || $mh = 100;
Not sure why it isn't reading the $tags in though.