4 lines
131 B
Perl
4 lines
131 B
Perl
|
use LWP::Simple qw/get $ua/;
|
||
|
|
$ua->agent(undef) ; # cloudflare blocks default LWP agent
|
||
|
|
print( get("http://www.rosettacode.org") );
|