my $rp = system('sqlplus dcs3000/dcua1@AAUA1.WORLD @a.sql');
print $rp;

##</code><code>##

VARIABLE a NUMBER
begin
:a := 0;
end;
/
print a
quit

##</code><code>##

 
perl -w a.pl