#!/usr/bin/perl

$w=2.315;
$x=2.3150141;
$y=sprintf("%.2f", $w);
$z=sprintf("%.2f", $x);

print "$w rounded is $y\n";
print "$x rounded is $z\n";