#!/opt/local/bin/perl

use strict;
use LWP::UserAgent ();

my $ua = LWP::UserAgent->new();
$ua->env_proxy;

my $rcvd = 0;
my $buf = '';
my $resp = $ua->get( 'http://www.google.com/',
                     ':content_cb' => sub { $buf .= $_[0]; die "NO MOR\n" if ( $rcvd += length $_[0] ) > 512; });

print "content:\n", $buf, "\n\n";

print "headers:\n", $resp->as_string, "\n";
exit 0;

__END__