Select Code to Download

#!/usr/bin/perl

use strict;
...
WWW::Mechanize::TreeBuilder->meta->apply($mech);
$tree->parse_content(get 'http://www.educa.ch/dyn/79376.asp?id=1187');
print Dumper($tree->as_text('//tr'));