Help for this page

Select Code to Download

Select or download this

#! perl
use strict;
...
{
    return sprintf("%.2f", int((1e5 * shift) + 0.5) / 1e3);
}

Select or download this

22:10 >perl 688_SoPW.pl

Old sum: 99.00 new sum: 99.99

22:10 >