my $code = <<CODE;
#line 200
die "Hello world";
CODE

eval $code;
warn $@;

__END__
Hello world at (eval 1) line 200.