$JSCRIPT=<<END;
<script language="JavaScript">
    input.value = max;
    textarea.focus();

    function count(e, textarea, max, input) {
    if (!e.which) keyCode = event.keyCode; // ie5+ op5+
    else keyCode = e.which; // nn6+

    if (textarea.value.length<max+1)
       input.value =
             max - textarea.value.length;
    else {
          textarea.value =
          textarea.value.substring(0,max);
          input.value = 0;
          alert("Text size exceeded, results may be truncated");
          return false;
        }
    }
</script>
END
print $cgi->start_html(
   -style=>{'code'=>$STYLE},
   -meta=>{ "Security" => "Confidential-Internal",
            "Description" => "IBM Record of Qwest Secalert",
            "Keywords" => "secalert,data_collect",
            "Content-Type" => "text/html; charset=iso-8859-1",
            "Pubisher" => "IBM Global Services at Qwest" },
   -title=>"$title",
   -script=>$JSCRIPT
);