Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    my $t = shift;
    return Delta_Format("+${t}seconds",'exact','%dh','%hv','%mv','%sv'
+);
}

%contenders = (
                'cw_sensible' => {
...
GrandFather  58163/s   11315%    1813%    199%        169%       71%  
+    59%          --  -55%      -61%
gam3        129947/s   25402%    4174%    567%        501%      282%  
+   255%        123%    --      -14%
Tanktulas   150334/s   29403%    4845%    672%        596%      342%  
+   310%        158%   16%        --

Argument "exact" isn't numeric in numeric gt (>) at /usr/local/share/p
+erl/5.8.4/Date/Manip.pm line 1985.