#!/usr/bin/perl -w                                                                                
use strict;
use IO::Socket;
my $socket_server = IO::Socket::INET->new( Listen    => 5,
                                           LocalAddr => 'localhost', 
                                           LocalPort => 7788,
                                           Reuse     => 1,
                                           Proto     => 'tcp'
                                     ) or die "$!";
 my ($c, $request_headers);
 while ($c = $socket_server->accept())
 {
   $c->autoflush(1);
   my $request_headers = <$c>;
   print $request_headers;
 }

##</code><code>##

$c->autoflush(1);
my @request_headers = <$c>;  # line 3

for $header_line (@request_headers)
   { print $header_line;  }