I had a similar problem where the mail header was not being set correctly and email was being rejected due to reverse-dns-lookup.
Look at the MIME::Lite perldoc on SetSender and FromSender. They might help.
The solution for my problem was to do this...
$mimeliteobj->send('sendmail', SetSender => 1);