$ 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    normal optimized    direct
normal    142857143/s        --      -14%      -57%
optimized 166666667/s       17%        --      -50%
direct    333333333/s      133%      100%        --

##</code><code>##

$ 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%        --