sub call_assign_value_func {
  my $some_num = shift;
  my $func_value = -1;
  my $pkgh = $dbh->prepare("BEGIN :result :=
    PKG_SIMULATOR.F_ASSIGN_VALUE(:some_num); END;");
  $pkgh->bind_param(":some_num", $some_num);
  $pkgh->bind_param_inout(":result", \$func_value, 15);
  $pkgh->execute();
  return $func_value;
}