#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

use Math::FixedPrecision;

my $b = Math::FixedPrecision->new(3.145, 2);
say $b;
# output: 3.14

my $c = Math::FixedPrecision->new(3.155, 2);
say $c;
# output 3.16