sub Foo::new {
        my $class= shift(@_);
        return bless [@_], ref($class)||$class;
    }