Sometimes you want to access variables from the caller's package. One way is to do something like this:
{
no strict 'vars' ;
my $caller = caller;
print qq[$caller --- ${"${caller}::var"}];
}