sub handler { my $r = shift;