Shift benchmarking! use LWP::Simple; get("https://ssl.buetow.org/repos/playground/trunk/Perl/bench/shift.pl");