use warnings;
use Devel::Peek;

$int = 17;
#print "\$int: $int\n";
Dump($int);
print "##############\n\n";

$double_1 = 1.23456789;
#print "\$double_1: $double_1\n";
Dump($double_1);
print "##############\n\n";

$double_2 = 1.0000;
#print "\$double_2: $double_2\n";
Dump($double_2);
print "##############\n\n";

$ul = 2 ** 31 + 16; # too big for an IV
#print "\$ul: $ul\n";
Dump($ul);
print "##############\n\n";

$double_3 = 2 ** 46 + 19; # too big for a UV or IV
#print "\$double_3: $double_3\n";
Dump($double_3);
print "##############\n\n";

$int += 0.0123; # $int no longer an IV
#print "\$int: $int\n";
Dump($int);
print "##############\n\n";