sub new { my ($class, @stuff) = @_; return bless sub { doit(@stuff, @_) },$class; }