2016 Update

Task/HTTP/Perl/http-1.pl

@@ -1,2 +1,5 @@
-use LWP::Simple;
-print get("http://www.rosettacode.org");
+use strict; use warnings;
+require 5.014; # check HTTP::Tiny part of core
+use HTTP::Tiny;
+
+print( HTTP::Tiny->new()->get( 'http://rosettacode.org')->{content} );

Task/HTTP/Perl/http-2.pl

@@ -1,9 +1,3 @@
-use strict;
-use LWP::UserAgent;
-
-my $url = 'http://www.rosettacode.org';
-my $response = LWP::UserAgent->new->get( $url );
-
-$response->is_success or die "Failed to GET '$url': ", $response->status_line;
-
-print $response->as_string;
+use LWP::Simple qw/get $ua/;
+$ua->agent(undef) ; # cloudflare blocks default LWP agent
+print( get("http://www.rosettacode.org") );

Task/HTTP/Perl/http-3.pl

@@ -0,0 +1,9 @@
+use strict;
+use LWP::UserAgent;
+
+my $url = 'http://www.rosettacode.org';
+my $response = LWP::UserAgent->new->get( $url );
+
+$response->is_success or die "Failed to GET '$url': ", $response->status_line;
+
+print $response->as_string