gistfile1.txt

bacek@illusion:~/src/parrot/languages/rakudo$ cat http.pl 
try {
    my $s = Q:PIR { %r = new 'Socket' };
    $s.socket(2,1,6);
    my $addr = $s.sockaddr('www.ibm.com', 80);
    $s.connect($addr);
    $s.send("HEAD / HTTP/1.0\r\n\r\n");
    .say for $s.recv;
};

say $! if $!;

# vim: expandtab shiftwidth=4 ft=perl6:

bacek@illusion:~/src/parrot/languages/rakudo$ ./perl6 http.pl 
Creating socket
Socket created
..fully
HTTP/1.1 302 Found
Date: Sat, 28 Mar 2009 00:33:31 GMT
Server: IBM_HTTP_Server
Content-Type: text/html
Location: http://www.ibm.com/us/en/
epKe-Alive: timeout=10, max=78
Connection: Keep-Alive

bacek@illusion:~/src/parrot/languages/rakudo$