my ($package, $filename, $line) = caller;
print qq[Problem in $filename at line $line\n];

##</code><code>##

my @caller = caller(0);
print qq[Problem in $caller[1] at line $caller[2]\n];

##</code><code>##

my $filename = (caller(0))[1];
my $line = (caller(1))[2];
print qq[Problem in $filename at line $line\n];