#!/usr/local/bin/perl
use DBI;

my $dbh = DBI->connect('DBI:Oracle:', 'scott', 'tiger', {RaiseError => 1}) || die DBI::errstr;

my @cmd =  (
          'sqlplus',
          '-s',
          'SCOTT/tiger',
          '@test.sql'
        );

my $output = qx{@cmd};
my $retcode = $?;

if ($? == -1) {
    die "Error: $?: $!";
}

print $output;