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.