sub syntax_ok {
        my $source = "return;\n" . shift;
        eval $source;
        return 1 unless $@;
        return 0;
}