sub _call {
    my ($self, $method) = (shift, shift);
    my $name = UNIVERSAL::isa($method => 'SOAP::Data') ? $method->name : $method;
    my %method = %{$methods{$name}};
	# added the following line so that we can utilize a proxy to get out through
	#		the firewall	
	$self->proxy($method{endpoint}, proxy => ['https' => 'http://proxy.mycompany.com']);	
    $self->proxy($method{endpoint} || Carp::croak "No server address (proxy) specified")
        unless $self->proxy;
    my @templates = @{$method{parameters}};
...