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