+-----++-----++-----++-----+
| 0 0 || 0 0 || 0 0 || 0 0 |
| 0 2 || 2 2 || 2 0 || 2 3 |
+-----++-----++-----++-----+

##</code><code>##

my $send="\x02\x22\x20\x23";
my $ob->($send);

##</code><code>##

my $received="02 22 20 22";

my($month,$day,$year1,$year2)=unpack("A2xA2xA2xA4",$received);

$year2++;

my $send=$month.$day.$year1.$year2;
$ob->write($send);

##</code><code>##

$month=pack("c",$month); 
$day=pack("c",$day); 
$year1=pack("c",$year1); 
$year2=pack("c",$year2);