my $number = 10;
   print "$number\n";
##</code><code>##

   use Devel::Peek;
   my $number = 10;
   Dump($number);
   print "Number is $number\n";
   Dump($number);
##</code><code>##

SV = IV(0x9a5cfe0) at 0x9a41774
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,IOK,pIOK)
  IV = 10
Number is 10
SV = PVIV(0x9a42b10) at 0x9a41774
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,IOK,POK,pIOK,pPOK)
  IV = 10
  PV = 0x9a57758 "10"\0
  CUR = 2
  LEN = 4