System Functions Perl

use Math::BigInt;
$bi = Math::BigInt->new('111111111111111111');
print $bi * $bi;