Or better yet:

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

Easy, to the point, and fixes a lot more than just single quotes. :-)