Select Code to Download

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

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

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