#!/usr/bin/perl -w
use strict;
use warnings;
use WWW::Mechanize;
use Compress::Raw::Zlib;
my ($d, $status) = new Compress::Raw::Zlib::Deflate ( -CRC32 => 1, ) ;
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', $d->crc32( $mech->content() ) );
}
print $crc, "\n";