#!/usr/bin/perl
$x=2.6745508;
$y=sprintf("%.2f", $x);
print "$x rounded is $y";