use Digest::MD5 qw(md5 md5_hex md5_base64);

 $data = "c:/Test.txt";
 $digest = md5_hex($data);
 print $digest;