$ perl -wle'
#line 23
warn "foo";'
foo at -e line 23.