$test->execute(
 { 
   print "This is user code\n";
   die "The devil is in $test->name()! I can't live with that!"
     if $test->IsDevilPresent(); 
 } );