Perhaps you should put in the "t", so the line looks like:

my $pattern = $appts->{RecurrencePattern};
#                 ^ add this "t"!
[download]

Had you bothered to put in use strict & company, perl would've given you a diagnostic to clue you in to the problem....

...roboticus