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