sub start_workflow { my ($self, $wf_task, $wf_user) = @_; my $userAgent = LWP::UserAgent->new(agent => 'perl post'); my $xml = " $wf_task $wf_user "; my $response = $userAgent->request( POST $self->{__service}, Content_Type => 'text/xml', Content => $xml, Authorization => $self->{__authorization}, ); return $response->content; }