my $qname = "_sip._udp.www.google.com";
    my $qname1 = substr $qname, 10;