http post file upload example
view plain
CODE:
use LWP::UserAgent;
use HTTP::Request::Common;
my $fname1 = "lastUtt.amr";
my $fname2 = "format.txt";
my $url = "http://10.129.6.228/post3.php";
my $ua = LWP::UserAgent->new();
my $req = POST $url, Content_Type => 'form-data',
Content => [
submit => 1,
uploadedfile => [ $fname1 ],
uploadedfile2 => [ $fname2 ]
];
my $response = $ua->request($req);
if ($response->is_success()) {
print "OK: ", $response->content;
} else {
print $response->as_string;
}