my $line = 99;
for my $n ( qw/foo bar baz/ ) {
  my $code = <<"EOT";
#line $line "$n"
die "aieee!"
EOT

  eval $code;
  if( $@ ) {
    print "Died: $@\n";
  }
}
__END__
Died: aieee! at foo line 99.

Died: aieee! at bar line 99.

Died: aieee! at baz line 99.