#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use Compress::Raw::Zlib;
my $mech = WWW::Mechanize->new();
$mech->get( 'http://audiologie-phoniatrie.charite.de/forschung/schwerpunkte/phaenotypische_variablitaet_pathologischer_kommunikation/forschungsprojekte/metas/impressum' );
my $crc;
{
	use bytes;
	$crc = sprintf( '%x', Compress::Raw::Zlib::crc32( $mech->content() ) );
}
print $crc, "\n";