eval { tie %h, $tie_class, @tie_args };
   die "Cannot tie($tie_class @tie_args): $@" if $@;