sub client {
    my $client = shift;
    my $usbQ = shift;
 
    my $retQ = new Thread::Queue;
    ...

    my $command = <$client>;
    $usbQ->enqueue( $command, $retQ );
    my $result = $retQ->dequeue;
    print $client $result;
    ...
}