#! perl
use strict;
use warnings;
use bignum;

my $foo = 1_234_500_000_000_000_000_000_000.6789;
my $bar = int $foo;
my $baz = $foo - $bar;

print 'baz = ', $baz, "\n";

##</code><code>##

baz = 0.6789