Select Code to Download

#!perl
use strict;
...
my $y = $x->new(44); # this is the funny bit
my $z = Math::BigInt->new(99);
exit;

  DB<1> x $y
0  27=HASH(0x14f15ac)
   'sign' => '+'
   'value' => ARRAY(0xbc9cd4)
      0  44

  DB<2> p $y
27=HASH(0x14f15ac)