my $snippet = ...
eval "if (0) { $snippet }";
die if $@;