A-M baby
This commit is contained in:
parent
764da6cbbb
commit
db842d013d
19005 changed files with 197040 additions and 7 deletions
9
Task/HTTPS/Perl/https.pl
Normal file
9
Task/HTTPS/Perl/https.pl
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
use strict;
|
||||
use LWP::UserAgent;
|
||||
|
||||
my $url = 'https://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;
|
||||
Loading…
Add table
Add a link
Reference in a new issue