How to know packet-type when using perl script

Hi, I have add perl script execution to recv-coa section in my coa virtual server in the script I want to do different operation if I am getting CoA-Request or Disconnect-Request How do I do that? how can I tell which packet-type arrive in the perl script.