#!/usr/bin/perl -w
use HTTP::DAV;
use warnings;

$d = new HTTP::DAV;
$url = "https://webdavserver";

$d->credentials( -user=>'user', -pass=>'kennwort',
          -url=>$url);

print "Connecting to $url\n";
$d->open( -url=>$url )
     or die("Could not open $url: " . $d->message . "\n");