Put two (2) "\n"s after the subject line:

  # ...
  $s->datasend("To:$recipient\n");
  $s->datasend("Subject: $subject\n\n"); # here
  $s->datasend("$content\n");
  # ...
[download]

--perlplexer