If you're just passing parameters in, you can also use positional (rather than named) parameters, in which case you don't need to explicitly bind them at all:

$sql = "BEGIN"."INTRA.WEB_LOG_DATA(?, ?, ?, ?, ?, ?);"."END;";
$sth =  data_sources_tools::putData($dbd,$sql);
$sth->execute($log_date, $add_recs, $update_recs, $delete_recs, $total
+_recs, $log_file_path);
[download]

Also note that, in current versions of Perl, you don't need to prefix user-defined function calls with & except in rare cases.