#!/usr/bin/env perl
use strict;
use warnings;
use File::Fetch;

my $url = 'http://perldoc.perl.org/File/Fetch.html';
my $ff = File::Fetch->new( uri => $url );
my $where = $ff->fetch( to => 'C:/TEMP' ) or die $ff->error;
my $file = $ff->output_file(); # name of local file
print "Fetched $url and stored as $file.\n";