debugprint("now entering mysub ...\n", 11);
sub debugprint($$)
{
  my ($err_str, $debug_value) = @_;
  print $err_str if $debug_value >= $debug;