I have no idea why do you make it so complex.
Especially it won't work to use Net::SIP::Simple on one side and than trying to send and
receive packets yourself on the other side.
Please have a look at the examples coming with the distribution. What you are trying to accomplish
can be done with something like this: