use Devel::Peek;
   my $number = 10;
   Dump($number);
   print "Number is $number\n";
   Dump($number);