select SYSDATE from dual;
exit;

##</code><code>##

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

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

my $q = new CGI;
my $connstr = 'USER/PASSWORD@DB';
my $msg = qx"sqlplus -s $connstr \@$sqlfile";

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