#!/usr/pkg/bin/perl

use Compress::Raw::Zlib;
use strict;


#
# Given a file (or stdin) calculate its CRC32 checksum.
# If multiple files are provided via @ARGV concatenate all of them and just
# return a single CRC32 checksum.
#

my $c = undef;
for my $l (<>) {
	$c = crc32($l, $c);
}

printf "%x\n", $c;