sub UNIVERSAL::new {
  my $class = caller() . "::" . shift;
  $class->new(@_);
}