use String::CRC32;
use Digest::Crc32;

use strict;
use warnings;
use diagnostics;

my $crc32 = new Digest::Crc32();
my $file = "text.txt";

open(SOMEFILE, $file);
my $crc = crc32(*SOMEFILE);
close(SOMEFILE);

print "Dec: " . $crc . "\n";
printf("String::CRC32: %X\n", $crc); # upper case A-F

$crc = $crc32->filecrc32($file);
printf("Digest::Crc32: %X\n", $crc); # upper case A-F