#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

use HTTP::DAV;
my $url = "http://localhost:4242/";

my $dav = HTTP::DAV->new;
$dav->open(-url=>$url) or die $dav->message;
$dav->get(-url=>"/", -to=>".");