use Devel::Peek;
use Scalar::Readonly ':all';

my $number = 10;
readonly_on($number);

Dump($number);
print "Number is $number\n";
Dump($number);