Example showing perl multipart http(s) post

perl-post-multipart.pl

#!/usr/bin/perl -w
use strict;

use LWP::UserAgent;

my $url = 'https://someurl.com/einvoice.dll';

my $filename = $ARGV[0];
my $sid = "username";
my $spwd = "password";

&usage unless ($filename);

&main();

sub main()
{
	my $ua = LWP::UserAgent->new();

	my $res = $ua->post(  

		$url,
		Content_Type 	=> 'multipart/form-data',
		Content 	=> [
				 	'supplier_id' => $sid, 
					'supplier_pwd' => $spwd, 
					'invoice_xml' => [$filename], 
				   ]
		);

	my $resp = $res->as_string;

	print $resp;

}

sub usage 
{
	print "usage: perl-post-multipart.pl filename\n\n" ;
	exit 1
}