Select Code to Download

sub roundThatBadDog {
    my $seconds = shift;
    return sprintf("%d", $seconds);
}

Benchmark: timing 100000 iterations of japhy, rob_au...
     japhy:  3 wallclock secs ( 4.13 usr +  0.00 sys =  4.13 CPU) @ 24
+213.08/s (n=100000)
    rob_au:  4 wallclock secs ( 4.23 usr +  0.00 sys =  4.23 CPU) @ 23
+640.66/s (n=100000)

#!/usr/bin/perl

...
    !
});