You can pass in a premade custom user agent (preferrably a HTTP::DAV::UserAgent, constructed with the appropriate parameters, via the -useragent => ... constructor parameter, or at least that's what the source code suggests to me.

Update: ... and looking at the HTTP::DAV documentation, it even shows how to pass in custom headers.