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