sub handler { my $proto = shift; $class = ref $proto || $proto; $class->new( @_ )->run; return OK; }