startup.pl:
use DBI ();
use CGI ();
CGI->compile(':all');
DBI->install_driver("Oracle");

SQLLoad.pm:
package SQLLoad;

use strict;
use Apache2::RequestRec ();
use Apache2::RequestIO  ();
use Apache2::Const -compile => qw(:common);

use DBI;
use CGI;

our $dbh;

sub handler
{
    my $r = shift;

    # Connect to DB
    $dbh = DBI->connect( "DBI:Oracle:host=oracle.ourdomain.com;port=1521;sid=XE", "hr", "password" ) unless $dbh;

    my $err = '';

    # Do the selects
    my $dbi_query_object = $dbh->prepare("SELECT id FROM zz_system_options");
        $dbi_query_object->execute();
    my $dbi_insert_object =
          $dbh->prepare("INSERT INTO zz_system_options (id,option_name) VALUES (zz_system_optionsids.nextval,?)");
    $dbi_insert_object->execute("load testing");

    # Print out some info about this...
    $r->content_type('text/plain');
    $r->print("Errors: \n");
    return Apache2::Const::OK;
}