#!/usr/bin/perl
##!/comptel/ccacp/elink/common/6.3/perl/bin/perl
use strict;
use warnings;
#use diagnostics;
use CGI;
use CGI::Carp 'fatalsToBrowser';
use Data::Dumper;
print Dumper(\%hash);
print Dumper($ref);

my $sqlfile  = '/var/www/cgi-bin/dual.sql';

my $q = new CGI;
my $connstr = 'id971934/colecsp@ECSP';;
my $msg = qx"sqlplus -s $connstr \@$sqlfile";

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

cat /var/www/cgi-bin/dual.sql
select SYSDATE from dual;
exit;