<!DOCTYPE COMMANDO SYSTEM "commando.dtd">
<COMMANDO>
 <UI>
  <CAPTION LABEL="Perl">
   <CHOICE LABEL="Action" VARNAME="action">
    <OPTION LABEL="Run" VALUE="run"/>
    <OPTION LABEL="Syntax Check" VALUE="check"/>
    <OPTION LABEL="Debug" VALUE="debug" /> 
   </CHOICE>
   <ENTRY LABEL="Perl Options" VARNAME="compileOptions" />
   <ENTRY LABEL="File name" VARNAME="file" EVAL="buffer.getPath()" />
   <ENTRY LABEL="Arguments" VARNAME="args" />
  </CAPTION>
 </UI>
 <COMMAND CONFIRM="FALSE" SHELL="System" TO_BUFFER="FALSE">
  buf = new StringBuffer();
  boolean run = false;
  if(action.equals("check"))
  {
   buf.append("perl -c");
  } else if (action.equals("debug")) {
   buf.append("perl -d:ptkdb");
   run = true;
  } else {
   buf.append("perl");
   run = true;
  }
  if(!compileOptions.equals("") &amp;&amp; !run)
   buf.append(" "+ compileOptions);
   buf.append(" " +file);
  if( !action.equals("compile") )
   buf.append(" "+args);
// return value
   buf;
 </COMMAND>
</COMMANDO>
