gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;
use 5.10.0;
use Furl;
use Plack::TempBuffer;

my $url = "http://ftp.iij.ad.jp/pub/linux/fedora/updates/15/x86_64/exim-4.76-2.fc15.x86_64.rpm"; #1.2MB

my $furl = Furl->new(
    timeout   => 10,
);

my $buf = Plack::TempBuffer->new;
my $res = $furl->request(
    method => 'GET',
    url => $url,
    write_code => sub { $buf->print($_[3]) },
);