ikegami has explained the problem, but I'd like to make it clear that this doesn't have anything to do with files. The following demonstrates the problem:

my $Time = 0.40796013431713;
print $Time, sprintf("\n%1.20f", $Time);
[download]