#!/usr/local/bin/perl
# server.pl, my mini-server in perl

open(FILE1, $ARGV[0]);
while (<FILE1>) {
    @lines = $_;
}
print "lines[0] = $lines[0]\n";
print "lines[1] = $lines[1]\n";
print "lines[2] = $lines[2]\n";

##</code><code>##

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

##</code><code>##

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

lines[1] = 
lines[2] =