Listing 4—This Perl script generates an HTML page to enable the user to customize the camera names.

#!c:/perl/bin/perl.exe
require ('.\cgi-lib.pl');
use CGI qw(:standard);
open(GET_NAMES, "names.txt");
@names_aray = <ltGET_NAMES>
close(GET_NAMES);
for ($i=0; $i<=1; $i++) $tim[$i] = $names_aray[$i];
print "Content-type:text/html\n\n";
print <<ltSTART_HTML; <lthtml>
<ltFORM METHOD=POST ACTION="http://server_ip_address/cgi/main.pl">
<lth3<gtRemote Camera #1 Site Name <ltINPUT NAME="camera1" TYPE=text VALUE=$tim[0]>
<lth3<gtRemote Camera #2 Site Name <ltINPUT NAME="camera2" TYPE=text VALUE=$tim[1]>
<ltP><ltINPUT TYPE=submit> 
START_HTML
print "</FORM></html>";