#!/usr/bin/perl
use DBI;
use Date::Manip;
#use String::Substrings;
use Fcntl; #The Module


$ENV{'ORACLE_HOME'}="/u01/app/oracle/product/10.2.0/client_1";
$ENV{'LD_LIBRARY_PATH'}="/u01/app/oracle/product/10.2.0/client_1/lib";
print "content-type: text/html \n\n";
print "<font face=verdana size=3><b>Netcool : Historical Report Version 2.0</b></font><hr size=1 noshade color=white>";
##-----------database connection ####################
$dbh = DBI->connect('dbi:Oracle:orcl','username','password', { RaiseError => 1, AutoCommit => 0 }) or die "\n----------Unable for connect to server $DBI::errstr\n";