#!/usr/bin/perl -w

use Math::BigInt;
my $x = Math::BigInt->new('12345678901234567890');
print " x is $x \n";
print " x squared is " . $x*$x . "\n";
