#!/usr/bin/perl

use strict;
use String::CRC32;

my $Usage = "Usage: $0 file.name ...\n";
@ARGV or die $Usage;

for my $file ( @ARGV ) {
    open( my $fh, "<", $file ) or die "Unable to open $file: $!\n";
    my $crc = crc32( $fh );
    close $fh;

    printf( "%08x ( %08x ) %s\n", $crc, 0xffffffff - $crc, $file );
}