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

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