Select Code to Download

sub Main {
...

    return;
} ## end sub Main

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

sub mechtitles {
    my( $qin, $qout ) = @_;
...
    ...
    $qout->push( { frobnicatetextdisplay => [ ... $data ... ] );
}