[...]

$new_user{REMOVED} = &mysqlBitField($data->{REMOVED});

[...]


sub mysqlBitField($field){
    return undef unless defined($field);
    return pack("b", 0) if $field == 0;
    return pack("b", 1);
}