php
<?php
$file = '1.txt';
echo 'MD5 file hash of ' . $file . ': ' . md5_file($file);
?>
perl
#!/usr/bin/perl -w
use strict;
use Digest::MD5;
my $file_check="1.txt";
open( FH, $file_check ) or die "Can't open '$file_check': $!";
binmode(FH);
print Digest::MD5->new->addfile(*FH)->hexdigest, " $file_check\n";