my @ua_args = (keep_alive => 1);
my $ua = HTTP::DAV::UserAgent -> new (@ua_args);
my $dav = HTTP::DAV->new(-useragent => $ua) ;