Select Code to Download

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

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