Select Code to Download

use Devel::Peek;
use Readonly;
...
Dump($number);
print "Number is $number\n";
Dump($number);

use Devel::Peek;
use Scalar::Readonly ':all';
...
Dump($number);
print "Number is $number\n";
Dump($number);