RosettaCodeData/Task/Infinity/Perl/infinity-6.pl

use bigint;
my $x = 1e1000;
my $y = 10**10**10;