Select Code to Download

#!/usr/bin/perl

...
                p('This application runs in ',mode(),' mode.'),
                end_html();
}

#!/usr/bin/perl

...
                '<p>This application runs in ',($r->IsFastCGI() ? 'Fas
+tCGI' : 'CGI')," mode.</p>\n",
                "</body></html>\n";
}