This code:
sub login { do { $_ = shift @members; } until /^\s+$/; if (keys %login > 1) { &selectdataset(\%login); exit; } }
voids proper coloring