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