Select Code to Download

Select or download this

use Math::BigRat;
my $num = Math::BigRat->new(157156424579004107729662594024339596952518
+6964287593983211702071746502379495623702577);
my $num2 = Math::BigRat->new('1571564245790041077296625940243395969525
+186964287593983211702071746502379495623702577');
print "Numeric: $num\n";
print "Stringy: $num2\n";

Select or download this

c:\>perl test.pl
Numeric: 1571564245790040000000000000000000000000000000000000000000000
+000000000000000000000000
Stringy: 1571564245790041077296625940243395969525186964287593983211702
+071746502379495623702577
c:\>_