my $tot = sprintf "%lf\n", ($ARGV[0]/$ARGV[1]);