use strict;
use LWP::Simple;
use File::Basename;

open (DATA, "urllist.txt") || die "File open failure!";
while (my $downloadurl = <DATA>){
	(my $name, my $path, my $suffix) = fileparse($downloadurl);
	my $finurl = $downloadurl;
		print $finurl."\n";

	my $savefilename = $name.$suffix;
		print $savefilename;
		print "\n";
	my $status = getstore($finurl,$savefilename);
		print $status."\n" 
}