#!/usr/bin/env perl -l

use strict;
use warnings;

my $value = 0.9888;

print '"%.2f" --> ', sprintf '%.2f', $value;
print '"%.4f" --> ', sprintf '%.4f', $value;
print '"%.8f" --> ', sprintf '%.8f', $value;

##</code><code>##

$ pm_1131769_output_precision.pl
"%.2f" --> 0.99
"%.4f" --> 0.9888
"%.8f" --> 0.98880000