Select Code to Download

/usr/bin/bzcat $ldif | perl -e "$/ = \"\n\n\";
while (<>) {
...
                last;
        } ;
}"

       my $z = new IO::Uncompress::Bunzip2 $file;
       $mbnum = $ARGV[0];
...
               last;
           }
       }