Furl

gistfile1.pl

use strict;
use warnings;
use Furl;
use LWP::UserAgent;

my $url = 'http://blog.livedoor.jp/dqnplus/';

{
    my $furl = Furl->new;
    my $res = $furl->get($url);
    print $res->status_line, "\n";
}

{
    my $ua = LWP::UserAgent->new;
    my $res = $ua->get($url);
    print $res->status_line, "\n";
}