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

##</code><code>##

if (!$ENV{MOD_PERL}) {
  # mod_perl is not available
}