sub UNIVERSAL::AUTOLOAD {
    my $class = shift;
    my $method = $UNIVERSAL::AUTOLOAD;
    unless ($method =~ /::DESTROY$/) {
        ...        
    }
}