Global symbol "$input" requires explicit package name at /tmp/soap.pl line 28.
Global symbol "$response" requires explicit package name at /tmp/soap.pl line 52.
Missing right curly or square bracket at /tmp/soap.pl line 53, at end of line
syntax error at /tmp/soap.pl line 53, at EOF
/tmp/soap.pl had compilation errors.

##</code><code>##

#!/usr/local/bin/perl --

use strict;
use warnings;
use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::Apache
  -> dispatch_to('Delivery')
  -> handle;

package Delivery;

use Data::Dumper;

sub byName {
  my ($self, @data) = @_;
  warn 'Delivery::byName : ',Dumper( @data );
  
  if ($data[0]->{'Action'} eq 'New Ticket') {
  	return sendAcknowledgement();
  } else {
  	return { error => 'Unknown Action' };
  }
}

sub sendAcknowledgement {
  return SOAP::Data->name(
  	Acknowledgement => {
		createStatus => "OK",
		Received => "0",
	}
  );
}