#! c:\\Perl\\bin\\Perl.exe

use Digest::MD5 qw(md5_hex);
open(FILE, "logs.txt");
my $file = <FILE>;
binmode(FILE);
$md5_hex = Digest::MD5->new->addfile(*FILE)->hexdigest;
close(FILE);
print "MD5: " . $md5_hex . "\n";