Select Code to Download

#!/usr/local/bin/perl
# server.pl, my mini-server in perl
...
print "lines[0] = $lines[0]\n";
print "lines[1] = $lines[1]\n";
print "lines[2] = $lines[2]\n";

> more test4a.txt
POST /cgi-bin/myprog.cgi  HTTP/1.0
...
Referer: http://www.rutgers.edu
Content-type: application/x-www-form-urlencoded
Content-length: 16

> ./server.pl test4a.txt
lines[0] = Content-length: 16

lines[1] = 
lines[2] =