langs a-z

Task/HTTP/Perl-6/http-1.pl6

@@ -0,0 +1,5 @@
+use v6;
+# Using LWP::Simple from: git://github.com/cosimo/perl6-lwp-simple.git
+use LWP::Simple;
+
+print LWP::Simple.get("http://www.rosettacode.org");

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

@@ -0,0 +1,7 @@
+use v6;
+
+my $socket = IO::Socket::INET.new(host => "www.rosettacode.org",
+				  port => 80,);
+$socket.send("GET / HTTP/1.0\r\n\r\n");
+print $socket.recv();
+$socket.close;