#!/usr/bin/perl

use strict;
use warnings;

use lib '../lib';
use Mail::Message::Field::Full;

my $subject = Mail::Message::Field::Full->new
  ( Subject => 'this is a subject:e"e"e"e""e"""q"q"""'
  , charset=>'windows-1250', encoding=>'Q'
  );
$subject->print;

$subject = Mail::Message::Field::Full->new('Subject',
'a little longer subject field which produces error,
so the quesion is why');
$subject->print;
