sub new {
    my $class = shift;

    my $obj = SomeClass->new( @args );

    bless \$obj, $class;
}

sub AUTOLOAD {
   ...;
   $$self->$meth( @_ );
   ...;
}