in reply to about Net::SMTP

You seem to be missing a $s->datasend("\n") between your headers and the body.

gav^

In Section Seekers of Perl Wisdom