#!/usr/bin/perl
use warnings;
use strict;

use MIME::Base64 ();       # Encoding of the authentication.
use LWP::UserAgent;        # Sending the request.
use HTTP::Request::Common; # Creating the request.

die "Specify File1 [File2...]\n" if @ARGV < 1;

my $url      = "http://...";
my $user     = 'username';
my $password = 'passwd';

die "Cannot find the files specified.\n" if grep ! -f, @ARGV;

my $auth_value = 'Basic ' . MIME::Base64::encode("$user:$password", q());

my $ua  = 'LWP::UserAgent'->new;
my $req = POST($url,
               Content_Type  => 'multipart/form-data; charset=utf-8',
               Authorization => $auth_value,
               Content       => [ Application    => 'Testing',
                                  map { 'File_' . (1 + $_) => [ $ARGV[$_] ] } 0 .. $#ARGV)
                                ]);

my $response = $ua->request($req);
if ($response->is_success) {
    print $response->content;

} else {
    die 'ERROR: ', $response->status_line;
}


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,