#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use HTML::TokeParser;
use LWP::Simple;
use File::Basename;
use List::Compare;



## POC URL:
my $page=get('http://localhost/images');


my %urlhash;
my @urlfiles;
my @array;
my @newarray;


my $p= HTML::TokeParser->new(\$page);

while (my $token = $p->get_tag("a")) {


@array = $token->[1]{href} || "-";
my $text = $p->get_trimmed_text("/a");

## Just a few lines of crap cleaner...

for (@array) {s/test.txt//g};
for (@array) {s/\///g};
for (@array) {s/\?C\=N;O\=D//g};
for (@array) {s/\?C\=M;O\=A//g};
for (@array) {s/\?C\=S;O\=A//g};
for (@array) {s/\?C\=D;O\=A//g};


#print "@array\n";

}

print "@array\n";