my $x = Var->new; my $succeed = sub { Success->throw }; my $sang_with = sub { sang_with("frank", $x, $succeed) }; eval { actor($x, $sang_with) }; print "frank did sing with an actor\n" if $@;