Select Code to Download

my $user = "test";
my $pass = "test";
...

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

$VAR1 = bless( {
                 'url' => 'http://baikal.local/cal.php/principals/test
+/testshift',
...
                                                              }, 'HTTP
+::DAV::UserAgent' )
                                    }, 'HTTP::DAV::Comms' )
               }, 'HTTP::DAV' );