Select Code to Download

use LWP::Simple qw/get/;

...
 warn "Couldn't get it!" unless defined $content;
 
 print $content;