#!/usr/bin/perl
use warnings;
use strict;

use lib '../lib';
use Mail::Message;
                                                                                
my $msg = Mail::Message->read(<<__MSG);
From: me
To: You
Subject: aap

abc
__MSG

my $score   = 5;
                                                                                
my $from    = $msg->head->get('From');
my $subject = $msg->head->get('Subject') || "";
warn "SUBJECT: $subject\n";
                                                                                
#$msg->head->delete('Subject');
$msg->head->set('Subject', "[$score] $subject");

$msg->print;
