Mailversand MIME Datum mit Perl

Hallo,

ich versene eine Mail mit Perl, dafür steht im moment das Datum fest im 
Header, ich möchte jedoch das das Aktuelle Datum und Zeit verwendet 
wird.

Das Datumsformat muß so aussehen:
Date: Wed, 01 Jun 2009 13:12:05 -0500

wie kann ich in Perl das Datum entweder so abfragen oder wie kann ich es 
in dieses Format bringen ?

Gruß
Klaus