An hobby implementation of curl, for learning Perl.

perl-curl.pl

#!/usr/bin/env perl

use strict;
use warnings;

use LWP;
use HTTP::Request;

my $url = <STDIN>;
my $user_agent = LWP::UserAgent->new;
$user_agent->agent("perl-curl/0.1 ");

my $request = HTTP::Request->new(GET => $url);

my $response = $user_agent->request($request);

if ($response->is_success) {
    print $response->content;
} else {
    print $response->status_line, "";
}