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