#!/usr/bin/perl use Data::Dumper; use HTML::Entities; use Time::HiRes; $|=1; print sprintf("%0.02f",0.345);