Not sure how you would pass a Perl object to the Automation server but you may not need to -- there is a way to bind events to Perl functions as you can see in these nodes.