my $raw = "\x06\x30\x30\x30\x0D\x0A"; #### select (undef,undef,undef,.5); # sub sec sleep