use DBIx::ProcedureCall qw( 
     Par_Reports_Pos:package:procedure 
);
my $outretcode;
my $outretmsg;
Par_Reports_Pos::sun_t_attm_temp_posm1d002 ( $dbh,
     \$outretcode, \$outretmsg);

##</code><code>##

$sth->bind_param_inout('retCode', \$outretcode, 100);