Net::Curl download progress

progress.pl

#!/usr/bin/env perl
use strict;
use warnings;

use Net::Curl::Easy qw(:constants);

my $easy = Net::Curl::Easy->new;

$easy->setopt(CURLOPT_URL, 'http://www.cpan.org/modules/02packages.details.txt.gz');
$easy->setopt(CURLOPT_WRITEDATA, \my $data);

$easy->setopt(CURLOPT_NOPROGRESS, 0);
$easy->setopt(CURLOPT_PROGRESSFUNCTION, sub {
    my (undef, $dltotal, $dlnow) = @_;
    printf "%0.2f%%\n", $dltotal ? 100 * $dlnow / $dltotal : 0;
    return 0;
});

$easy->perform;
printf "downloaded %d bytes\n", length $data;