"In God we trust, all others bring data."

##</code><code>##

#!/usr/bin/perl

use strict;
use File::Copy;
#use Shell qw(cat);
use IO::Handle;
use Data::Dumper;
#use Math::BigInt;
use Math::BigFloat;
use Statistics::Lite qw(:all);

...calc...

#Math::BigFloat->precision(5);
Math::BigFloat->accuracy(4);

## set global accuracy to 4, and get ready to populate %dat

           my %dat;

           $dat{"ip"}=$ip;
           ...

## output %dat to filehandle write

           my $pathfn=qq($tmpdir/$fn.daily.csv);
           dat2fhw($pathfn,\%dat);

## set global accuracy back to 6+

Math::BigFloat->accuracy(6);

## loop again on next element