Perlの場合

Perl5.8では関数が用意されていないので、「Digest::MD5」モジュールを利用します。

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

PHPの場合

関数が用意されています。

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