use strict;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->get('file:///test.html');
print $mech->content;