use HTML::Entities qw(encode_entities_numeric);
$dsname = encode_entities_numeric( $dsname );