Perl: Download files using libcurl

curl-downloader.pl

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Curl::Easy;
use File::Temp qw/tempfile/;

my ($out, $filename) = tempfile();

my $curl = WWW::Curl::Easy->new();
$curl->setopt(CURLOPT_URL, "https://github.com/libwww-perl/libwww-perl/archive/6.13.zip");
$curl->setopt(CURLOPT_WRITEDATA,$out);
$curl->setopt(CURLOPT_VERBOSE,1);
$curl->setopt(CURLOPT_FOLLOWLOCATION,1);
my $retcode = $curl->perform();

if ($retcode != 0) {
  print STDERR  "Fetch Failed: ", $curl->strerror($retcode), " ( +$retcode)\n";
  print STDERR  "errbuf: ", $curl->errbuf;
  exit(1);
} else {
  print STDERR  "Fetched file to: ", $filename, "\n";
}