use Devel::Peek;
$num = 5;
Dump($num);
print $num."\n";
Dump($num);