Perl - IO::Handle

use IO::Socket::INET;

my $c = IO::Socket::INET->new("localhost:80") or die;

# print $c ...;
$c->print( join("\r\n",
  "GET / HTTP/1.0",
  "Host: localhost",
  "", ""
) );

# $_ = <$c>; print $_;
print $c->getline;

print $c->eof; # ""

# print <$c>;
print $c->getlines;

print $c->eof; # 1

print $c->opened; # 1
$c->close;
print $c->opened; # ""