#!/usr/bin/perl

use strict;
use warnings;

use Tie::iCal;
use Data::Dumper;

tie my %ical, 'Tie::iCal', 'Community.ics' or die "Problem: $!";

warn Dumper \%ical;

untie %ical;