my $date_r = "Mon, 17 May 2004 21:03 +0200";
....
.....
.....
$smtp->datasend("Date: $date_r\n");
..
....