#!/usr/local/bin/perl

use strict;
use warnings;

use HTML::TableExtract;

my @headers = qw{From Subject Received Size};

my $te = HTML::TableExtract->new(headers => \@headers);
$te->parse_file(q{html/monk.html}) or die qq{parse failed\n};

my $ts = $te->first_table_found();
foreach my $row ($ts->rows) {
  for my $i (0..$#{$row}){
    print qq{$headers[$i]: $row->[$i]\n};
  }
}