$s->to($to);
    $s->mail($from);
    $s->data();
    $s->datasend("To: $to\n");
###
    $s->datasend("From: $from\n");
    $s->datasend("Subject: Hi, this looks like SPAM ... but it ain't.\
+n");
    $s->datasend('Date: ', scalar(time), "\n");
###
    $s->datasend("\n");
    $s->datasend("$message \n" );
    $s->datasend( "\n" );
    $s->dataend();
    $s->quit();
[download]

Note the lines I added between the triple-hashmarks.