my $result = qx{$ENV{ORACLE_HOME}/bin/sqlplus -L -V scott/scott \@database 2>&1};

##</code><code>##

use Capture::Tiny qw(capture);

my ($stdout, $stderr, $exit) = capture {
    system("$ENV{ORACLE_HOME}/bin/sqlplus", '-L', '-V', 'scott/scott', '@database');
};