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

##</code><code>##

       my $z = new IO::Uncompress::Bunzip2 $file;
       $mbnum = $ARGV[0];
       while ($line = $z->getline()) {
           if ($line =~ /^dn: uid=$mbnum,/) {
               $found = "true";
               print $line;
               for (my $i=0; $i<100; $i++) {
                   $matchLine = $z->getline();
                   print "$matchLine";
                   if ($matchLine =~ /^$/) {
                       last;
                   }
               }
           }
           if ($found eq "true") {
               last;
           }
       }