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