use Digest::MD5 qw(md5_hex);

...

my $fileMd5 = md5_hex($text) . $ext;