my $ref;
    if ($ref = ref($obj) and $ref !~ /^(SCALAR|ARRAY|HASH|GLOB|Regexp)$/) {
        $obj->method();
    }