Alternatively, if you're logging within a separate function (or even module), you can get both the filename and the line number of the caller, with:

     my ($package, $filename, $line_number) = caller();
[download]