#!/usr/bin/perl

use lib "../blib/lib";
use lib "../blib/arch";
use lib "../";

use Net::ICal;

use Net::ICal::Cluster;
use Net::ICal::Store;

$c = new Net::ICal::Component::Vcalendar();

$c->add(
	new Net::ICal::Property::Dtstart("19970101T123456"),
	new Net::ICal::Property::Dtend("19970101T123456"),
	new Net::ICal::Property::Dtstamp("19970101T123456")
       );



foreach $i ($c->properties()){

  print "\n--------------\n".$i->as_ical_string()."\n";

}