#!/usr/bin/env perl
# How to get only the first header
use Mail::Message;

my $msg = Mail::Message->read( <<_MSG );
Delivered-To: me
Delivered-To: you

tic
tac
toe
_MSG

#use Data::Dumper;
#warn Dumper $msg;

print "SCALAR=",scalar $msg->get('Delivered-To');

my @list = $msg->head->get('Delivered-To');
print "LIST of ".@list."\n";

print "  $_\n" for @list;

