"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";