$dav = new HTTP::DAV;
$dav->credentials("foo","bar",$url");
$dav->open($url);
$dav->put($file);