Select Code to Download

my $bob = 123.456
print &my_format($bob) . "\n";

$bob = 123.4567;
print &print_fixed($bob). "\n";
...
  my ($frac_part) = $dpart=~ /\.(\S*)/;
  return $ipart . $frac_part;
}