#!/usr/local/bin/perl

use strict;
use warnings;
use Mail::Field;

my $header = q{from tr909.mediaconsult.com (mediacons.tecc.co.uk [193.128.6.132]) by host5.hostingcheck.com (8.9.3/8.9.3) with ESMTP id VAA24164 for <adam@spiers.net>; Tue, 1 Feb 2000 21:57:18 -0500};

print qq{header: $header\n};

my $received = Mail::Field->new(q{Received}, $header);
my $results = $received->parse_tree();

# hangs perl
#if ($received->parse_ok){
#	print qq{parse ok\n};
#}
#else{
#	print qq{parse not ok\n};
#}

print qq{by -> domain: $results->{by}{domain}\n};

##</code><code>##

header: from tr909.mediaconsult.com (mediacons.tecc.co.uk [193.128.6.132]) by host5.hostingcheck.com (8.9.3/8.9.3) with ESMTP id VAA24164 for <adam@spiers.net>; Tue, 1 Feb 2000 21:57:18 -0500
by -> domain: host5.hostingcheck.com