use Carp;
  $h->{HandleError} = sub { confess(shift) };