#!/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=>".");

##</code><code>##

Server response: Could not access http://localhost:4242/: Bad Request at davtest.pl line 14.