Does the same problem occur if you use something like Email::Send::Sendmail? Overkill for a simple script perhaps, but it might work for you.