#!/usr/bin/perl
use strict;
our @send;
fillbuffer();
my $buf;
foreach (@send)
{
        $buf=$buf.pack("c",$_);
}
my $len=@send;
print "<$buf> <$len>";
#  $ok=$client_socket->syswrite($buf,$len); 

sub fillbuffer
{
my $a=STX();my $b=0x11;my $c=0x12;my $d=ETX();
@send=($a,$b,$c,$d);
}

sub STX() { "\002" };
sub ETX() { "\003" };