eval "#line 1 foo\ndie";
print $@;