Select Code to Download

<form action="../cgi-bin/login.cgi" name="checkin" id="checkin" method
+="post">
   <label for="ckin">Account ID: &nbsp; 
   <input type="text" id="ckin" name="ckin" size="15">
   </label> &nbsp;
   <input name="Submit" type="submit" value="Ordering">
</form>

#!/usr/bin/perl -wT              # read about Tainted input or die 
use strict;
use CGI qw(:standard escapeHTML);
...
_END_OF_VAL
;
}