$ perl oo_benchmark.pl 
            (warning: too few iterations for a reliable count)
            (warning: too few iterations for a reliable count)
            (warning: too few iterations for a reliable count)
                 Rate    direct    normal optimized
direct    125000000/s        --      -25%      -25%
normal    166666667/s       33%        --        0%
optimized 166666667/s       33%        0%        --