#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket::INET;

my $socket = IO::Socket::INET->new(
    PeerAddr => "code.google.com",
    PeerPort => 'http(80)',
    Proto => "tcp",
);

my $string = <<'EOF';
GET /p/clementine-player/ HTTP/1.1
Host: code.google.com
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: UTF-8,*
Keep-Alive: 115
Connection: keep-alive
Cookie: rememberme=true; SID=DQAAAHUAAACE4gu62L9BhCwJWqYouLN1bCFP0lf4vsGGfkX2Nfrbxyb3cyIisWFqIXDpiIz4mFFKEvNwrrnQ1H1g1OWhRvGGQgALLtbBa0SGlG0F27UW7y8VY7xGO4T08wmLIaO5ux1GSRbQNx5WDS8We9mLHJXFRGsBxyBgOEgoiGdCyvyH9Q; PREF=ID=38932a0421d53d19:U=a431e7faad7b8812:LD=en:CR=2:TM=1239014832:LM=1280141089:S=hgR-3up8C3sFFoX6; NID=38=AdQj2QM7kHKHKvA3RXX0Zzm5wC-py9TBReCI8a0ehmAcUR9pVWcfkieYEAkpAmPJW2mnFXyeAE9QTgOemTxJS35jjXqstf7hD_UP_TolI7qVzkRoZ4CfrUOY6viM2Oqc; __utma=247248150.1228239202.1278316645.1278326511.1280389416.3; __utmz=247248150.1278316645.1.1.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=clementine%20player
Cache-Control: max-age=0

EOF

$string =~ s{\r*\n}{\r\n}g;

$socket->print($string);
READ:
while (my $line = <$socket>)
{
    print $line;

    if ($line =~ m{</html>})
    {
        last READ;
    }
}