eval qq[\n#line 2001 ""\ndie 'foo']; print $@;