#!/usr/bin/perl -w

use strict;
use HTTP::DAV;

my $d = new HTTP::DAV;
my $url = "http://myurl";
my $file = "myfile.xls";
$d->DebugLevel(3);
 
$d->credentials(-realm => "myrealm",-user=>"myusername",-pass =>"mypassword" );
$d->open( -url=>"$url" );
print $d->message . "\n";