just look into the documentation
perldoc Net::SIP::Simple::Call describes, what arguments the cb_preliminary callback gets.
I hope, this answered your question, otherwise try asking a bit different, so that I can
understand your problem.
Regards,
Steffen (Author of Net::SIP)