#!/usr/bin/perl -w
use strict;
use Data::ICal::Entry::Event;

my $vevent = Data::ICal::Entry::Event->new();