GetElementsByClassName -- Perl？

Question

我试图在Javascript和perl中做一个getElementsByClassName，但是它不起作用，从下面的代码中我得到的只是结束，它没有进入foreach循环，我做错了什么，还有比HTML::TagParser更好的方法吗？

...
my $html = HTML::TagParser->new( "****.html" );
$topic = URI::Fetch->fetch($topic);

my @list = $html->getElementsByClassName( 'separateur_links' );
foreach my $elem ( @list ) {
    my $text = $elem->innerText;
    print $text . "\n";
}
print "END\n";
...

编辑：

当我使用Data::Dumper print Dumper($html);时，我得到：$VAR1 = bless( {}, 'HTML::TagParser' );

编辑2：

$topic = URI::Fetch->fetch($topic);不在最初的问题中，我忽略了它，不知道这是问题所在

Answer 1

问题是在URI::Fetch->fetch中，我将它用于其他测试，并忘记删除它：

my $topic = "*******.html";
print "** Checking available links in : " . $topic . "\n";
# $topic = URI::Fetch->fetch($topic);

my $html = HTML::TagParser->new( $topic );
print Dumper($html);
my @list = $html->getElementsByClassName( 'separateur_links' );
foreach my $elem ( @list ) {
    my $text = $elem->innerText;
    print $text . "\n";
}