use Digest::MD5 qw(md5_hex);
use warnings;
$checksum = 0;

$filename = "compress_logs.pl";
$fingerprint = md5_hex($filename);
print "$fingerprint Perl Gen\n";
$checksum = `md5sum compress_logs.pl`;
print "$checksum: Linux Gen\n";

[root@zzz me]# /usr/bin/perl test.pl
b2b0b5ab494414bbbbe6625e247de247 Perl Gen
933be8d9a84230aa8162932102dd0bf0  compress_logs.pl
: Linux Gen