#!/usr/bin/perl -w
use HTML::Tree;
use LWP::Simple;
use strict;

my $tree = HTML::TreeBuilder->new();
$tree->parse_file("test.htm");
    
#Main processing.
sub wiki_render
{my $element = $_[0];
     
      if ($element->tag eq 'p') 
      {print $element->as_text;
      print "\n";} 

      elsif ($element->tag eq 'a') 
      {print"Link: ";
        print $element->attr('href');
        print " Link Text: ";
        print $element->as_text;
        print "\n";}
           
# This recursion drives the 'loop' that ensures all elements of the HTML Tree are processed.          
      foreach my $child ($element->content_list)  {
            next unless (ref $child);
            wiki_render($child);}
}

wiki_render($tree);