use Data::ICal;
use Data::Dumper;

$calendar = Data::ICal->new(filename => 'basic.ics'); # parse existing file
print Dumper $calendar;
print $calendar->as_string;