#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;

my $string = "0002";

my $MSG_FLAG_READ          = 0x0001;
my $MSG_FLAG_REPLIED       = 0x0002;
my $MSG_FLAG_MARKED        = 0x0004;
my $MSG_FLAG_EXPUNGED      = 0x0008;
my $MSG_FLAG_HAS_RE        = 0x0010;
my $MSG_FLAG_ELIDED        = 0x0020;
my $MSG_FLAG_OFFLINE       = 0x0080;
my $MSG_FLAG_WATCHED       = 0x0100;
my $MSG_FLAG_SENDER_AUTHED = 0x0200;
my $MSG_FLAG_PARTIAL       = 0x0400;
my $MSG_FLAG_QUEUED        = 0x0800;
my $MSG_FLAG_FORWARDED     = 0x1000;
my $MSG_FLAG_PRIORITIES    = 0xE000;

my $value = pack("H4", $string);
#print Dumper(\$value);

if($value && $MSG_FLAG_READ) {
        print "Message has been read\n";
} else {
        print "Unread message\n";
}