Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Mime-Version: 1.0
Subject: =?utf-8?B?UmV0cm9zcGVjdCBub3RpZmljYXRpb24gZnJvbSBPR0IgKDkvMjcvMjAwNik=?=



sub read_message
        {
                my $num = shift;
                my $message = $imap->get( $num );
                 print for @{$message};
                my $header = $imap->top( $num );

                my $ data = decode("utf7", $header);
                print for @{$data};

                # $data = encode("utf8", decode("iso-8859-1", $data));
        }