#!perl

use strict;
use warnings;
use WWW::Mechanize;
use Data::Dumper qw/Dumper/;
use HTML::TreeBuilder::XPath;

my $mech = WWW::Mechanize->new(
	stack_depth => 0,
);

my $tree = HTML::TreeBuilder::XPath->new();

my $uri = 'http://www.perl-community.de/bat/content/view/home';
$mech->get( $uri );
my $c = $mech->content();
$tree->parse( $c );
my $chunk = $tree->findvalue( 'body//div[@class="header"]');
if( !defined($chunk) or $chunk eq "" ) {
	print "no chunk @ uri: $uri\n";
	print Dumper($chunk);
	exit(1);
}else{
	print $chunk;
}

$tree->delete();
exit(0);

 †       Schrift      Board   use strict; use warnings;  Startseite Forum  Blog Wiki + FAQ / IRC G‰stebuch