#!/usr/bin/perl -w
use strict;
use warnings;
use AnyEvent::HTTP;

http_get "http://www.google.com/", sub { print $_[1] };