HTML::Index::Document does exactly what you want.

#!/usr/bin/perl

use strict;
use warnings;
use HTML::Index:::Document;

my $doc = HTML::Index::Document->new( path => $path ); 

$doc = HTML::Index::Document->new( 
         name     => $name, 
         contents => $contents, 
         mod_time => $mod_time, 
);
[download]