#!/usr/bin/perl

use strict;
use warnings;

use lib '../lib';
use Mail::Message;
my $msg = Mail::Message->build;

$msg->head->reset(
   'To', Mail::Message::Field->new('To', "\"Vic\"<norton\@dacor.net>"));

$msg->print;

