Check crc32

checkCRC.pl

#!/usr/bin/env perl
use strict;
use warnings;
#use diagnostics;
use String::CRC32;

open(FD1, "ls |");
my @files = <FD1>;
foreach my $f (@files) {
	$f =~ s/\n//;
	open(FD2,$f);
	my $crc = crc32(*FD2);
	close(FD2);
	$crc = uc sprintf('%08x',$crc);
	if($f =~ /\Q$crc/) {
		print "$f\t OK\n";
	}
	else {
		print "\t >>Please check $f \t $crc\n";
	}
}
close(FD1);