Select Code to Download

my $host = 'localhost';
my $path = '/cgi-bin/second.pl';
my $port = 80;

my $CONN = IO::Socket::INET->new("$host:$port")
   or die "Couldn't connect: $!";

my $req = "GET $path HTTP/1.0 $CRLF$CRLF";
$CONN->syswrite($req);

$/ = CRLF . CRLF;   #To read the whole header as one 'line'
binmode $CONN;      #Turn off \n conversion for getline() in next line
...
Content-Length: 294
Connection: close
Content-Type: text/html

my $CONN = IO::Socket::INET->new(
    Peerhost    => $host,
    Peerport    => 'http(80)',
) or die "Couldn't connect: $!";

Use of uninitialized value $header in substitution (s///) at 4perl.pl 
+line 55.
Use of uninitialized value $header in say at 4perl.pl line 56.

use strict;
use warnings;
...
say $header;

$CONN->close;