sub handler { 
    my $r = shift;
    ...