Help for this page

Select Code to Download


  1. or download this
    my ($package, $filename, $line) = caller;
print qq[Problem in $filename at line $line\n];
  2. or download this
    my @caller = caller(0);
print qq[Problem in $caller[1] at line $caller[2]\n];
  3. or download this
    my $filename = (caller(0))[1];
my $line = (caller(1))[2];
print qq[Problem in $filename at line $line\n];