Select Code to Download

local $/ = ",";

my $dn = "";
...
        do_whatever_with($_);
    }
}

local $/ = ",";

my $dn = "";
...
        print $_, "\n";
    }
}

#!/usr/bin/perl -w
use strict;

...
__END__
cn=Perl Monks,ou=Dining Hall,ou=Monastery,c=Universe