package B::Syntax;
sub compile {
    return sub {
	$O::BEGIN_output =~ /Syntax OK/ ? exit 0 : exit 1;
    }
};
1;

##</code><code>##

   # $prog_or_e_option = ... ; 
   system("perl -MO=-qq,Syntax $prog_or_e_option");
   # Test $?