#!/usr/bin/perl

use strict;
use warnings;

use 5.010;
use LWP::UserAgent;
use HTTP::Request;

sub has_dav {
    my $uri     = shift;
    my %options = @_;

    my $ua       = LWP::UserAgent->new;
    my $request  = HTTP::Request->new( OPTIONS => $uri );
    my $response = $ua->request($request);
    say STDERR $request->as_string if $options{DEBUG};
    say STDERR $response->as_string if $options{DEBUG};

    return $response->as_string =~ /DAV/i;
}

$| = 1;
say q(Hat DAV!
) if has_dav('http://testserver/dav/');

# und mit DEBUG
say q(---------------------------------
DEBUGMODE
Hat DAV!
---------------------------------
) if has_dav( 'http://testserver/dav/', DEBUG => 1 );