#!/usr/bin/perl -w
use strict;
use HTML::Tiny;
use Data::Dumper;
my $Tiny = HTML::Tiny->new();
my $data   = $Tiny->HTMLin('test001.xml');
# DEBUG
print Dumper($data) . "\n";
# END