#!/usr/bin/perl
use v5.10;
use Math::BigRat;
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
IyEvdXNyL2Jpbi9wZXJsCnVzZSB2NS4xMDsKdXNlIE1hdGg6OkJpZ1JhdDsKCm15ICRhID0gTWF0aDo6QmlnUmF0LT5uZXcoICAnMV8wMDBfMDAwXzAwMF8wMDBfMDAwXzAwMCcgKTsKbXkgJGIgPSBNYXRoOjpCaWdSYXQtPm5ldyggJzEwXzAwMF8wMDBfMDAwXzAwMF8wMDBfMDAwJyApOwpteSAkcSA9ICRhIC8gJGI7CgpzYXkgJHE7ICAjIHByaW50cyAxLzEw