This script is a variation on
this scriptthat adds a GMT time stamp of when each file is retrieved to the file name:
use strict;
use LWP::Simple;
use POSIX;
use File::Basename;
#usage timestamp_fileget.pl filename.txt
my $filename = shift;
open (DATA, $filename) || die "File open failure!";
while (my $downloadurl = <DATA>){
(my $name, my $path, my $suffix) = fileparse($downloadurl);
print "\n";
print $downloadurl."\n";
my $timestring = strftime( "%Y%m%d_%H%M%S", gmtime() );
my $savefilename = $timestring.$name.$suffix;
print $savefilename."\n";
my $status = getstore($downloadurl,$savefilename);
print $status."\n";
}