use DBI;   
my $dsn ="dbi:Oracle:$myDSN";
$dbh = DBI->connect ($dsn, $user, $password, {
        PrintError  =>1,
	RaiseError =>1}); 
if (!$dbh) {
print "Error connecting to database; $DBI::errstr\n";
exit(-1);
}
print "After Connection\n";
$sth = $dbh->prepare(q{BEGIN Par_Reports_Pos.sun_t_attm_temp_posm1d002
					(:parameter1,
					:parameter2
					);
					END;
				});

my $outretcode = $sth->bind_param_inout('retCode', 100);
my $outretmsg = $sth->bind_param_inout('retMsg', 100);