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