my $a = Math::BigRat->new( '1_000_000_000_000_000_000' );
my $b = Math::BigRat->new( '10_000_000_000_000_000_000' );
my $q = $a / $b;
say $q; # prints 1/10
my $a = Math::BigRat->new( '1_000_000_000_000_000_000' );
my $b = Math::BigRat->new( '10_000_000_000_000_000_000' );
my $q = $a / $b;
say $q; # prints 1/10