perl scipt to read vcal files