use Data::ICal;
my $calendar = Data::ICal->new( filename => $ARGV[0] );
print '
', $calendar->property('x-wr-calname')->[0]->value, '
';
print '', $calendar->property('x-wr-caldesc')->[0]->value, '
';
foreach my $entry ( @{$calendar->entries} ){
printf '%s - %s %s
'."\n",
map { $entry->property($_)->[0]->value }
qw/ dtstart url summary description /
;
}