Select Code to Download

#!/usr/bin/perl -w                                                    
+                            
use strict;
...
   my $request_headers = <$c>;
   print $request_headers;
 }

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

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