Writing COM Components in Perl Part 2