#! perl -slw
use strict;
{
	use IO::Socket::INET;

	my %socket = (
          Host=>'www.perl.org', 
          Port=>80, 
          Proto=>'tcp', 
          Timeout=>10, 
          Type=>SOCK_STREAM
      );
	my $socket = IO::Socket::INET->new(%socket) 
         or die $!;
	print $socket;
	close $socket or die $!;
	print 'IO::Socket::INET closed';
}


{
	use Socket;

	select STDOUT;
	print 'About to open socket';
	socket(SH, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die $!;
	print 'socket opened';
	my $dest = sockaddr_in(80, inet_aton('www.perl.org'));
	connect(SH, $dest) or die $!;
	print 'connected';
	select SH;
	$|=1;
	print SH 'GET / HTTP/1.0' . "\cM\cJ\cM\cJ" or die $!;
	select STDOUT;
	print 'sent';
	print <SH> or die $!;
	print 'received';
}