#!/usr/bin/perl

use strict;
use warnings;

use MIME::Entity;

my @dateArray   = split(/\s+/, scalar localtime);
my $time        = $dateArray[3];
my $dateYear    = $dateArray[4];
my $dateMonth   = $dateArray[1];
my $dateDay     = $dateArray[2];
my $dateWeekday = $dateArray[0];

MIME::Entity->build(
    Date => $dateWeekday.", ".$dateDay." ".$dateMonth." ".$dateYear." ".$time." +0200", 
    Data => [])->print;