Annmarina / -could-not-open-file-n--unless--open-FD_IN--file----while-------if------r--------r-n------print-----

"could not open file\n" unless (open(FD_IN,$file)); while () { if ((/^\r/)||(/^\r\n/)) { print "---\n"; } if (/dn:+\s+(.+)$/) { print "DN: ".$1."\n"; } if (/cn:+\s+(.+)$/) { $cnu=decode_base64($1); print "CN: ".$cnu."\n"; } if (/userpassword:+\s+(.+)$/i) { $pwu=decode_base64($1); print "Password: ".$pwu."\n";