panic: malloc at /usr/lib/perl5/5.8.6/Carp/Heavy.pm line 61.
Debugged program terminated.

##</code><code>##

  $arg =~ s/([[:cntrl:]]|[[:^ascii:]])/sprintf("\\x{%x}",ord($1))/eg;

##</code><code>##

  # The following handling of "control chars" is direct from
  # the original code - I think it is broken on Unicode though.
  # Suggestions?

##</code><code>##

  heavy machinery, no user serviceable parts inside