...
package mdCrypt;
require Digest::MD5 qw(md5_hex);

sub createMD5 {
   my $self = shift;
   my ($string) = join (',',@_);
   return md5_hex($string);
}   
...

my $filename = $mdCryptObj->createMD5(localtime());