Email::Sender::Simple how to set priority?

[Rajeev Prasad]

following is still coming out as normal priority email.



use strict;
use warnings;
use Email::MIME;
use Email::Sender::Simple qw(sendmail);


my @mesg=qw(fox jumps over the);

my $subject='IMP mesg';

my $message = Email::MIME->create(
  header_str => [
    From    => '<x...@abc.com>',
    To      => '<'y...@abc.com>',
    Subject => $subject,
  ],
  attributes => {
    encoding => 'quoted-printable',
    charset  => 'ISO-8859-1',
    'X-Priority' => 1,
    'X-MSMail-Priority' => 'High',
  },
  body_str => "@mesg",
);

sendmail($message);