#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp 'fatalsToBrowser';
use DBD::Oracle;

my $q = new CGI;
my $dbh = DBI->connect(
  'dbi:Oracle:host=localhost;sid=DB','USER','PASSWORD', 
  {RaiseError => 1 , PrintError => 0} );	 

my ($msg) = $dbh->selectrow_array(
   'SELECT CURRENT_TIMESTAMP FROM DUAL');

print $q->header,$q->start_html,
$q->h2($msg),$q->end_html;