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"; 
                }
[download]