use Compress::Zlib;
my $crc32 = 0;
while (<>)
{
 $crc32 = Compress::Zlib::crc32($_, $crc32);
}
print "CRC is $crc32\n";