#! /usr/bin/perl -w

use strict;
use LWP::UserAgent;

my @files = (
	"file1.gz",
	"file2.gz",
	"file3.gz"
);

my $ua = LWP::UserAgent->new();

foreach my $file (@files) {
	my $url = "http://site.com/directory/" . $file;

	my $request = new HTTP::Request(
		GET => "$url"
	);
	
	my $response = $ua->request($request, $file);
	if ($response->is_success) {
		print "Got file $file\n";
		
	} 
	
	else {
		die $response->status_line;
		
	}
	
}