download http url

download.pl

#!/usr/bin/env perl

use strict;
use warnings;
use File::Fetch;

my $url = $ARGV[0];

print "downloading  $url\n";

my $ff = File::Fetch->new(uri => $url);
my $file = $ff->fetch() or die $ff->error;

print "done\n";