perl -e "use LWP::Simple; getprint 'http://www.theredkitchen.net/'"

##</code><code>##

$ua = LWP::UserAgent->new;
$ua->agent('Odyssey/2001');