use DateTime;
use DateTime::Format::Mail;

my $str = DateTime::Format::Mail->format_datetime( DateTime->now );

print $str;