#!/usr/bin/perl -w

use LWP::RobotUA;
my $ua = LWP::RobotUA->new('theusefulbot', 'bot@theusefulnet.com');
my $content = $ua->get("http://www.yahoo.com");
$ua->delay(10/600);
print $content;

##</code><code>##

HTTP::Response=HASH(0x82111c0)