Select Code to Download

#!/usr/bin/perl

...

timethese( 1000000, { double => 'double( )',
                  single => 'single( )' } );

Benchmark: timing 1000000 iterations of double, single...
    double:  3 wallclock secs ( 2.14 usr +  0.00 sys =  2.14 CPU)
...
Benchmark: timing 1000000 iterations of double, single...
    double:  1 wallclock secs ( 1.89 usr +  0.00 sys =  1.89 CPU)
    single:  1 wallclock secs ( 1.86 usr +  0.00 sys =  1.86 CPU)