RosettaCodeData/Task/HTTP/Perl-6/http-2.pl6

use v6;

my $socket = IO::Socket::INET.new(host => "www.rosettacode.org",
				  port => 80,);
$socket.print("GET / HTTP/1.0\r\n\r\n");
print $socket.recv();
$socket.close;
langs a-z 2013-04-10 22:43:41 -07:00			`use v6;`

			`my $socket = IO::Socket::INET.new(host => "www.rosettacode.org",`
			`port => 80,);`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`$socket.print("GET / HTTP/1.0\r\n\r\n");`
langs a-z 2013-04-10 22:43:41 -07:00			`print $socket.recv();`
			`$socket.close;`