Help for this page
my $rp = system('sqlplus dcs3000/dcua1@AAUA1.WORLD @a.sql'); print $rp;
VARIABLE a NUMBER begin ... / print a quit
perl -w a.pl