Select Code to Download

select UserName from table where UserName <> '' and UserName not like 
+'deleted%'

#! perl -w
use strict;
...
    }
    print { $fhs{ $char } } $_;
}

#! perl -w
use strict;
...
        $uniq{ $_ } =  1;
    }
}

mysql --quick < getnames.sql | perl partNames.pl

perl uniqNames.pl > uniqedNames.txt