$ENV{ORACLE_SID}="grumpy";
my $dbh = DBI->connect( "dbi:Oracle:","sneezy","sneezy" );
my @output = `echo hi`;
printf "Job status: %d\n", $?;
 
exit;