use Data::Dumper;

sub callstack
{
 return caller();
}

print Dumper(callstack());

##</code><code>##

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