/usr/bin/bzcat $ldif | perl -e "$/ = \"\n\n\";
while (<>) {
        if (/uid=$match/) {
                print $_ ;
                last;
        } ;
}"