Select Code to Download

"Destroying $self->{NAME}" at ... etc

sub DESTROY {
    my $self = shift;
...
    }
    $self->close;
}

sub USB {
    my $Q = shift;
...
        $retQ->enqueue( $answer );
    }
}

sub client {
    my $client = shift;
...
    print $client $result;
    ...
}