my $logger = ${loggertyp}->new();

##</code><code>##

sub UNIVERSAL::AUTOLOAD {
  my ($pack, $meth) = $AUTOLOAD =~ /(.*)::(.*)/;
  die "do you really want me to pull in $pack for $meth?\n" unless $meth eq "new";
  eval "require $pack"; die $@ if $@;
  die "$pack didn't define $meth" unless defined &$AUTOLOAD;
  goto &$AUTOLOAD;
}