print (OUT "===============================================================================================================\n") ; print (OUT "THIS IS AN AUTO-GENERATED MESSAGE - PLEASE DO NOT REPLY TO THIS MESSAGE\n"); close DAT ; close OUT ; }

Hm, it is nice to provide the code, but perhaps you could also say in which respect it does not work according to your expectations. Does it compile? Does it do anything? Do you get any warning or error message?

MIME::Lite is not recommended by its current maintainer. There are a number of alternatives, like Email::MIME or MIME::Entity and Email::Sender, which you should probably use instead. MIME::Lite continues to accrue weird bug reports, and it is not receiving a large amount of refactoring due to the availability of better alternatives. Please consider using something else.