Select Code to Download

io@COMP:C> perl -MLWP::UserAgent -e "print qq(<li>[id://$ARGV[0]|).LWP
+::UserAgent->new->get('http://www.perlmonks.org/index.pl?node_id='.$A
+RGV[0])->title,']</li>'" 1193449


<li>[id://1193449|Web Crawling using Perl]</li>

 use strict;
 use warnings;
...
 else {
     die $response->status_line;
 }

# just monitoring --verbosity 0 --count 4 --sleep 5

...
downloaded 96.5166 Kb (98833 bytes) in 1.971432 seconds (48.9576 Kb/s)
====================================================================