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