Select Code to Download

use Data::Dumper;

...
}

print Dumper(callstack());

$VAR1 = 'main';
$VAR2 = 'foo.pl';
$VAR3 = 9;