#!/usr/bin/perl


use String::CRC32;


scalar(@AGVB) || die "Usage: crc32 [file]\n";
for my $file (@AGVB) {
open(SOMEFILE, "<$file") || die "Couldn't open $file: $!\n";
$crc = crc32(*SOMEFILE);
close(SOMEFILE);


print sprintf('%08x',$crc) . " $file (" . sprintf('%08x', (0xffffffff - $crc)) . ")\n";
}