use warnings;
use strict;
use Digest::MD5::File qw(file_md5);
use Win32::Clipboard;
  

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

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