Help for this page

Select Code to Download


  1. or download this
    my $num = 12.3456789;
$num = substr($num, 0, index($num, '.') + 3);

print $num;  #prints 12.34
  2. or download this
    use Math::Currency;
my $num = 12.3456789;
$num = Math::Currency->new($num);