Also, you can make __FILE__ and __LINE__ lie with the #line directive (perlsyn),

$ perl -e'
> #line 200 "the office"
> warn'
Warning: something's wrong at the office line 200.
$
[download]