Re: Low level socket question.

[crouchingpenguin]

in reply to Low level socket question.

How about just using IO::Socket?

#!/usr/bin/perl
$|++;
use strict;
use warnings;
use IO::Socket;

my $host = '0.0.0.0';
my $port = 80;
my $socket = IO::Socket::INET->new(
  PeerHost => $host,
  PeerPort => $port,
  Timeout => 5,
) or die "Failed to connect to $host on $port: $!";
$socket->autoflush(1);
print "Host reached\n-----------------\n" ;
my $lines = 'GET /index.html';
$socket->send($lines . "\n");
while( defined( my $line = $socket->getline() ) ){
  print $line;
}

cp
----
"Never be afraid to try something new. Remember, amateurs built the ark. Professionals built the Titanic."