use Digest::MD5::File qw(file_md5);

##</code><code>##

my $myfile = shift;
my $md5 =  new Digest::MD5;

$md5->addpath($myfile);
my $digest = $md5->hexdigest;
Win32::Clipboard::Set ($digest);

##</code><code>##

Win32::Clipboard::Set
  Digest::MD5->new->addpath(shift)->hexdigest;

##</code><code>##

Win32::Clipboard::Set file_md5 shift;