my $Q - ...;

sub thread {
    while( $Q->dq( ) )
        ...
    }
}