use Data::Dumper;

sub callstack
{
 return caller();
}

print Dumper(callstack());