use Test::More tests=>1;
my $x = 1.00000001;
is sprintf("%.5f", $x), "1.00000";