sub AUTOLOAD {
	my ($fn) = ($AUTOLOAD =~ /^.*::(.+)$/);
	return if $fn eq 'DESTROY';
	*{$fn} = sub { print "$AUTOLOAD $fn\n"; };
	goto &$fn;  
}