use Digest::MD5;
my $file = 'exsample.txt';
open FILE, $file;
binmode FILE;
print Digest::MD5 -> new addfile( *FILE ) -> hexdigest;
close FILE;

$file = 'exsample.txt';
echo md5_file( $file );