[mirrors/Programs.git] / perl / socket.pl

#!/usr/bin/env perl
use strict;
use warnings;
use IO::Socket::INET;

my $sock = IO::Socket::INET->new('localhost:80');
print $sock "GET / HTTP/1.1\r\nHost: localhost\r\nConnection: close\r\n\r\n";
while(<$sock>) {
	print $_;
	STDOUT->flush;
}

$sock->close;
Commit	Line	Data
21c4e167 H	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use IO::Socket::INET;
	5
	6	my $sock = IO::Socket::INET->new('localhost:80');
	7	print $sock "GET / HTTP/1.1\r\nHost: localhost\r\nConnection: close\r\n\r\n";
	8	while(<$sock>) {
	9	print $_;
	10	STDOUT->flush;
	11	}
	12
	13	$sock->close;
	14