Select Code to Download

use strict; 
use warnings;
...
else {
    print $response->status_line, " <URL:$url>\n";
}

use strict;
use warnings;

use LWP::Simple;
getprint ('http://www.cpan.org/');

C:\>lwp-download "http://www.cpan.org"

open MYHANDLE, "GET http://www.perlmonks.org|";

while(<MYHANDLE>) {
  print $_;
}