package Wrapper;
use Carp;
sub new {
	my ($class,$wrapped) = @_;
	return bless \$wrapped, $class;
}
sub AUTOLOAD {
	my $wrapped = shift;
	(my $meth = our $AUTOLOAD) =~ s/.*:://;
	croak "Wrapped object $$wrapped doesn't have a method $meth"
		unless $$wrapped->can($meth);
	# do stuff here
	my $returnval = $$wrapped->$meth(@_); # call wrapped method
	# and more stuff here
	return $returnval;
}
sub DESTROY {} # don't autoload DESTROY