my $num = 4.62899; $round = sprintf "%.2f", $num; print "$round\n";