115,116c115
< 	print $dn."\n";
< 	if ( $resp =~ /($dn)/ ) {
---
> 	if ( $resp =~ /($dn)/i ) {