if ( ... mod_perl ... ) {
print 'mod_perl';
}
else {
print 'cgi';
}