my $r = eval { Apache->instance };
if ($@) {
  # mod_perl probably not available
}