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