Select Code to Download

begin
  forbesc.test_exception_pg.main('orafail');
end;
/
exit

#!/usr/bin/perl -w
my $sqlplus = "sqlplus -s chuckster/im_in\@develo";
...
my $var = (system($sqlplus . " " . $file));
my $out = $? >> 8;
print "The out value is '$out'.\n";

[prodadm@ora4 scripts]$ ./invoke_sqlplus.pl 
begin
...


The out value is '0'.