my $message =  { newserialport  => [qw/ COM6 baudrate 11 ... /] } ;
$qin->push( $message );