sub in_eval {
   my $i=0;
   while (my @caller=caller($i++)) {
      return defined $caller[6] ? "eval EXPR"
                                : "eval BLOCK"
         if !$caller[7] && $caller[3] eq "(eval)"
   }
}
...
die @_ if defined $^S ? $^S : in_eval;