| Channel | Call Letters | Count | Percent | Title |
| 1 | ch1 | 22 | 6.52% | Program 1 |
| 3 | Ch1 | 5 | 1.48% | Program2 |
| 4 | Ch 3 | 1 | 0.29% | Program3 |
| 5 | CH53 | 5 | 1.48% | Program4 |
| 6 | C | 3 | 0.89% | Program5 |
##
use warnings;
use strict;
use HTML::TableExtract;
use LWP::Simple;
my $file ="/path/to/file/file.htm";
my $T = HTML::TableExtract->new();
my $table = $T->parse_file($file)
->first_table_found;
my @rows = $table->rows;
foreach my $row ($T->rows) {
print join(',', @$row), "\n";
}