sub AUTOLOAD {
    my $f = $AUTOLOAD;
    $f=~s/.*:://;
    if ($f =~ /^new(.*)/) {
	return $1->new(@_);
    } else {
	die "Undefined subroutine: $f";
    }
}