POST a Multipart request in Perl via LWP

Today I wrote good script which called the 3rd party API and for that I need to send a wav file via multipart.
I worte the code in Perl, which read my keyword via (param) and then I call my API and send the file via multipart.

#!/usr/bin/perl
print "Content-type: text/html\n\n";

use HTTP::Request::Common;
use LWP::UserAgent;
use CGI qw(:standard);
use strict;
use warnings;

my $file, $result, $message;
my $filePath = '/srv/www/cgi-bin/files';

$file = $filePath.'/'.$keyword.".wav";

my $ua = LWP::UserAgent->new;
my $req = $ua->request(POST 'http://www.yourURL',
	      Content_Type => 'form-data',
	      Content => [
		foo => "$foo",
		bar => "$bar",
		Upload => ["$file"]
	      ]
);

print "\nRESPONSE -- \n" . $req->as_string;

# Check the outcome of the response
if ($req->is_success) {
    print $req->content;
}
else {
  print "\n in else not success\n";
}

More links to read :
http://www.perlmonks.org/index.pl?node_id=186591
http://search.cpan.org/~gaas/libwww-perl/lib/HTTP/Request/Common.pm

Happy Programming.