use Digest::MD5  qw(md5 md5_hex md5_base64);
 
my $date        = UnixDate("today","%b %e, %Y at %T");
my $md5file     = md5_hex($date);
my $workpath    = "/path/to/workdir";

open(INFILE, ">$workpath/$md5file.msg") or die "$?";
print INFILE @unwrappeddata;
close ('INFILE');