#!/usr/bin/perl
use Digest::MD5 'md5_hex';
undef $/;
open F, $ARGV[0] or die "Usage $0 <file>\n$!\n"; 
binmode F;
print md5_hex(<F>);
close F;