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

##</code><code>##


$tprice = ($l[8]/$l[7])-$cpn->{'subprice'};
if ($tprice < 1  && length($tprice) > 4) {
	print "SPRINTF - $tprice -  " . sprintf("%0.02f",$tprice) . "\n";
}

##</code><code>##

$l[8] = 3.49
$l[7] = 2
$cpn->{'subprice'} = 1.4
$tprice = 0.345