You are creating a new Net::DNS::Packet, but if you want to send a question, like dig does, you will need to create a Net::DNS::Question.

Please post the full code of your program so that we can see how you are trying to send your data. Also, it might help to learn about DNS so you know and understand the different types of packets that get sent and received.