my $user = "test";
my $pass = "test";
my $url = "http://baikal.local/cal.php/principals/test/testshift";
#my $url = "http://baikal.local/cal.php";
my $cal = Cal::DAV->new( user => $user, pass => $pass, url => $url);

my $dav = $cal->dav;

print Dumper($cal);
print Dumper($dav);