$mimeent = generatemail(); # this func return mime entity.
print "length before: " . length($mimeent->as_string);
my $newid =$imap->append_string($folder, $mimeent->as_string, $flags, $date);
print "length after: " .$imap->size($newid);