print "Content-Type: text/html\n\n"; print "\n"; print "\n"; print "test_db\n"; print "\n"; print "\n"; print "

Hello World

\n"; use DBI; use DBD::Oracle; print "

DBI and DBD::Oracle loaded.

\n"; print "\n"; print "\n";