use Inline::Perl5;
my $p5 = Inline::Perl5.new;
$p5.run('sub p { printf "%.100f\n", shift }');
$p5.call('p', .3);
$p5.call('p', Num(.3));
$p5.call('p', 3e-1);
=finish
0.2999999999999999888977697537484345957636833190917968750000000000000000000000000000000000000000000000
0.2999999999999999888977697537484345957636833190917968750000000000000000000000000000000000000000000000
0.3000000000000000444089209850062616169452667236328125000000000000000000000000000000000000000000000000