You can use that solution in your module
sub postSnippetsFile {
my ( $self, %options ) = @_;
my $request = HTTP::Request::Common::POST( '',
'Content_Type' => 'form-data',
'Content' => [ file => [ $options{file} ] ],
);
$request->authorization_basic($options{username},$options{password
+});
#print Dumper $request;
my $headers = {
'Content-Type' => $request->header('Content-Type'),
"Authorization" => $request->header('Authorization'),
};
my $body_content = $request->content;
#print Dumper $headers,$body_content;
$self->{_client}->POST( $options{url}, $body_content ,$headers );
#print $self->{_client}->responseCode();
return $self->{_client}->responseContent();
}
poj