f0

#!/usr/bin/perl

$total=0;
$num=0;
$min=999;
$max=0;

while(<>){
        if(!/0.0/){
            $now=$_+0;
            $num++;
            $total=$total+$now;
            if ($min>=$now){
                $min=$now;
            }
            if($max<=$now){
                $max=$now;
            }
    }
}
$ave=$total/$num;
$range=$max-$min;
print"$max,$min,$ave,$range\n";