sub document_if {
    my ($cond,$code) = @_;
    if ($cond) { 
        eval $code
    } else {
        print "Not executing:\n";
        print $code;
        print "\n---\n";
    };
};