perl /tmp/x.pl 
Testing with 704 values.
            Rate      ST  direct
ST         568/s      --   -100%
direct 4273666/s 752122%      --