$ perl -e'
> #line 42 bogus
> die "As expected"'
As expected at bogus line 42.
$