#!/sw/bin/perl 

use strict;
use warnings;
use Digest::MD5;

my $file = '/Some/user/Desktop/Fedora/FC-6-i386-disc5.iso';

my $ctx = Digest::MD5->new;    
open 'FILE', '<', $file or die "Can't open $file: $!\n";
$ctx->addfile(*FILE);

my $digest = print $ctx->hexdigest, "\n";
close($file);