sub are_baudrate {
    my $self = shift;
    return unless $self->{"_C_BAUD"};
    if (@_) {
       my $newbaud = shift;
       $self->{"_L_BAUD"}{$newbaud} = $newbaud;  
    }
    return keys(%{$self->{"_L_BAUD"}});
}