#!/usr/bin/perl

use strict;
use warnings;
use HTML::TreeBuilder::XPath;
use LWP::Simple;

my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse_content(get 'http://www.educa.ch/dyn/79376.asp?id=1187');
$tree->findnodes(q{//tr[1]/td[2]});
print $tree->as_text, "\n";