use strict;
use LWP::Simple;
use HTML::SimpleLinkExtor;



#usage getfileoftype http://www.example.com pdf > urllist.txt
my $url = shift;
my $filetype = shift;
my $filetypelen = length($filetype);
my $offset = -$filetypelen;
#print $filetypelen."\n";
#print $offset."\n";

my $fileget = getstore($url,"tempfile.html");

my $extor = HTML::SimpleLinkExtor->new();
$extor->parse_file("tempfile.html");

my @a_hrefs = $extor->a;

for my $element (@a_hrefs) { 
#	print $element;
#	print "\n";
	my $suffix = substr($element,$offset,$filetypelen);
#	print $suffix;
#	print "\n";
      if ($suffix =~ m/$filetype/){
	   print $element;
           print "\n";  
	}
	}

##</code><code>##

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" 
}