$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);