use Inline::Perl5;
my $p5 = Inline::Perl5.new;
$p5.use('Math::Float128');
my $f1 = $p5.invoke('Math::Float128', 'new', '2.5');
my $f2 = $p5.invoke('Math::Float128', 'new', '3.0');
my $swap = 0; # Set to true if order of
# operands is to be swapped
# Set $f3 to $f1 divided by $f2
my $f3 = $f1._overload_div($f2, $swap);
say "# $f3";
# Outputs, as expected:
# 8.33333333333333333333333333333333365e-01
####
my $f3 = $f1 / $f2;
##
##
C:\>perl -V:useshrplib
useshrplib='true';