The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
GRICHTER / Embperl-2.4.0 / test / html / inputjava.htm 
  <html>
  <body>
    [- $s = "script.htm" -]
    [$ if (($fdat{'Screen'} || 0) != 1) $]
    <form action="[+ $s +]" method="POST">
      <input type=hidden name="Screen" value="1">

      Screen 1<br>
      <input type=submit name="Command" value="Start" onClick="document.forms[0].Command.action = 'Start'">
      <input type=submit name="Command" value="Next" onClick="document.forms[0].Command.action = 'Next'">
    </form>
    [$ else $]
    <form action="[+ $s +]" method="POST">
      <input type=hidden name="Screen" value="2">

      Screen 2<br>
      <input type=submit name="Command" value="Back" onClick="document.forms[0].Command.action = 'Back'">
      <input type=submit name="Command" value="Done" onClick="document.forms[0].Command.action = 'Done'">
    </form>
    [$ endif $]

	<select name="foo" onChange="javascript:this.value=this.value.toUpperCase();"> </select>
	<foo name="foo" onChange="javascript:this.value=this.value.toUpperCase();">

	<select name="foo" bla="xxx" onChange="javascript:this.value=this.value.toUpperCase();"  bla="xxx"> </select>
	<foo name="foo"  bla="xxx" onChange="javascript:this.value=this.value.toUpperCase();" bla="xxx">

	<select  bla="xxx" onChange="javascript:this.value=this.value.toUpperCase();"  name="xxx"> </select>
	<foo  bla="xxx" onChange="javascript:this.value=this.value.toUpperCase();" name="xxx">

	<INPUT TYPE="text" NAME="titleref" VALUE="" SIZE="20"    
        MAXSIZE="20" onChange="javascript:this.value=this.value.toUpperCase();">

	<INPUT TYPE='text' NAME="titleref" VALUE="" SIZE='20'    
        MAXSIZE="20" onChange='javascript:this.value=this.value.toUpperCase();'>

	<INPUT TYPE='text' NAME="titleref" VALUE="" SIZE='20'    
        MAXSIZE="20" onChange='javascript:this.value=this.value.toUpperCase([+ '1' +]);'>

  </body>
  </html>