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