#!/usr/bin/perl
use lib '..';

use strict;
use warnings;
use Mail::Box::FastScalar;

my $self = bless( {
                 'ref' => 'Received: by server.northgrum.com
        id <asdfasdfasdf.adsfasdfasdf@server.northgrum.com>; Fri, 9 May 2003
07:50:05 -0400
Message-ID: <adfasdfasdfasdfasdfasdf@server.northgrum.com>
From: "Daffy Duck" <daffy.duck@ngc.com>
To: Elmer J. Fudd <FUDDMAN@northropgrumman.com>
Subject: What this is all about
Date: Fri, 9 May 2003 07:50:09 -0400
MIME-Version: 1.0
Content-Type: text/plain;
        charset="iso-8859-1"


',
                 'data' => ''
               }, 'Mail::Box::FastScalar' );

$self->tell;

