use strict; use Carp; use DateTime::Format::ISO8601; use DateTime::TimeZone; use HTTP::Tiny; use JSON; use Tie::DataUUID qw{$uuid}; use XML::Spice; use Net::DAVTalk::XMLParser; use MIME::Base64 qw(en