system( $SQLPLUS ) == 0 or die $?;

##</code><code>##

my $output = qx{ $SQLPLUS };