#!/usr/bin/perl

use CGI;
use DBI;
use strict;
use CGI::Carp qw(fatalsToBrowser);
my $q = new CGI;
print $q->header;

my $dbh = DBI->connect("DBI:Oracle:host=myhost;sid=mysid", 'username', 'password') or die "Connecting : $DBI::errstr\n";
#get the page settings
my $sth = $dbh->prepare("Select SYSDATE from dual");
$sth->execute;
print $sth->fetchrow_array;