Select Code to Download

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

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