Select Code to Download

  my $float = shift;
  my $dec = shift;

#!/usr/bin/perl
use strict;
use warnings;
...
  
  return $float_Result
}

1.25499999999999990000
1.26