$url      = 'http://localhost';
$user     = 'TBC';
$password = 'TBC';
$file     = 'IMG_6345.JPG';
@params   = ('file' => $file);

$curl = new WWW::Curl::Easy;

$curl->setopt(CURLOPT_VERBOSE, 1);

$curl->setopt(CURLOPT_URL, $url);

$curl->setopt(CURLOPT_CONNECTTIMEOUT, 10);
$curl->setopt(CURLOPT_TIMEOUT, 300);

$curl->setopt(CURLOPT_HTTPAUTH, CURLAUTH_DIGEST);
$curl->setopt(CURLOPT_USERPWD, "$user:$password");

$curl->setopt(CURLOPT_POST, 1);
$curl->setopt(CURLOPT_POSTFIELDS, \@params);

$curl->setopt(CURLOPT_RETURNTRANSFER, 1);
$body = $curl->perform;
print($body);
[download]

* About to connect() to localhost port 80 (#0)
*   Trying 46.137.176.6...
* connected
* Connected to localhost (46.137.176.6) port 80 (#0)
* Server auth using Basic with user 'tbc'
> POST / HTTP/1.1
Authorization: Basic ZgVtbzpweXRob24=
Host: localhost
Accept: */*
Content-Length: 16
Content-Type: application/x-www-form-urlencoded

* upload completely sent off: 16 out of 16 bytes
< HTTP/1.1 401 Unauthorized
< Date: Sun, 15 Jul 2012 13:28:45 GMT
< Server: Apache
< WWW-Authenticate: Digest realm="realm",qop="auth",nonce="MGVjNTu4ZmV
+lNzNkMjM0ZGI5ZDE2NGY4MGExOWJiODY6MTM0MjM1OTIyNQ=="
< Connection: close
< Transfer-Encoding: chunked
< Content-Type: text/plain;charset=UTF-8
<
This service requires authentication. Please contact your account mana
+ger.
* Closing connection #0
[download]

perl-WWW-Curl.i686                    4.09-3.5.amzn1               @am
+zn-main
perl-core.i686                        5.10.1-119.12.amzn1          amz
+n-main
[download]