my @calendars = $cal->get_calendars;
my ($c) = grep { $_->title =~ m!default!i } $cal->get_calendars;
#die "Couldn't get cal\n" unless defined $c;
$c = $calendars[0];
$cal->set_calendar($c);

if (!@ARGV) {
	print "Getting events\n";
    for ($cal->get_events()) {
		#print Dumper $_->as_xml;
		#next;
		print $_->title."\n";
		print $_->id."\n";
		my ($start, $finish) = $_->when();
		print "${start}-${finish}\n";
		#print $_->content->body;
		print "\n*****\n\n";
	}
    exit;
}