#!/usr/bin/perl -w
use DBI;
use strict;
use diagnostics;
$ENV{'ORACLE_HOME'} = "/home/oracle";
my $dbh = DBI->connect('coalmine',"scott","tiger",'Oracle');
my $date = $dbh->selectrow_array("SELECT SYSDATE FROM DUAL");
if($date) { print "Database Date $date\n"; }
else { print "Failed\n"; }
$dbh->disconnect;