#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11130981
use warnings;
use bigrat;

my $value = 1 x 131/ 1;
my $value1 = $value;
print "$value\n";
[download]

Outputs:

1111111111111111111111111111111111111111111111111111111111111111111111
+1111111111111111111111111111111111111111111111111111111111111
[download]

hehehehehehe !!