Select Code to Download

  use Data::ICal;
  use Data::ICal::Entry::Event;
...
  );
  $calendar->add_entry($vtodo);
  print $calendar->as_string;

BEGIN:VCALENDAR
PRODID:Data::ICal 0.07
...
SUMMARY:some fun
END:VEVENT
END:VCALENDAR