my @events1 = $cal->events($span);

##</code><code>##

#!/usr/bin/perl
use strict;
use Data::ICal::DateTime;

my $date1 = DateTime->new( year => 2012);
my $date2 = DateTime->new( year => 2013);
my $span  = DateTime::Span->from_datetimes( start => $date1, end => $date2 );

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

my @events1 = $cal->events($span);
    foreach my $event (@events1) {
       my $summary = $event->summary;
       my $start = $event->start;
       my $end = $event->end;

# Continue sql insertion next...