#!/usr/bin/perl

use strict;
use warnings;

require Email::Simple;


my $string = 'Return-Path: <gilles@louloutte.dyndns.org>
Received: by plume.est.belle (Postfix, from userid 1000)
        id 068133ECED; Wed, 27 Aug 2008 17:21:23 +0200 (CEST)
Subject: test:oohiozeimoojeiwe
To: <tata@est.belle>
X-Mailer: mail (GNU Mailutils 1.1)
Message-Id: <20080827152123.068133ECED@plume.est.belle>
Date: Wed, 27 Aug 2008 17:21:23 +0200 (CEST)
From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)

test:oohiozeimoojeiwe
';

my $email = Email::Simple->new($string);
print ("$_:[", $email->header($_), "]\n") for $email->headers;

print $email->header('Date'), "\n";