my $cal = Data::ICal->new(filename => 'Calendar.ics');

##</code><code>##

my $cal = Data::ICal->new(filename => 'Calendar.ics');
die "Can't open calendar: ".$cal->error_message()."\n" if !$cal;