Select Code to Download

#!/usr/bin/perl
use strict;
...
my $c = Math::FixedPrecision->new(3.155, 2);
say $c;
# output 3.16