my $flag="";
local $SIG{__DIE__} =  sub { 
        $flag = "implementor wants to terminate"; 
        ... 
   };

eval "$code";

if ( $flag eq ... and so on...