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

use File::Temp;
use LWP::UserAgent;
#use HTTP::Request;


do_task();

sub do_task {
    my $ua = LWP::UserAgent->new(
        'ssl_opts' => { 'verify_hostname' => 0 }
    );
    $ua->show_progress(1);
    my @urls = ( 
        "http://linkToAFat.xml",
    );
    
    foreach my $url ( @urls) {
        my ($fh, $path) = File::Temp::tempfile(DIR => '/tmp/my_tmp');
        $ua->get($url, ":content_file" => $path);
        #my $request     = HTTP::Request->new(GET => $url);
        #my $response    = $ua->request($request, $path);
    }
}