sub handler {
     my $r = shift;
     my $uri = $r->parsed_uri;
     my $scheme = lc($uri->scheme);

     if ($scheme eq 'https') {
         ...
     }
     ...
}