In both those lines, you are likely to encounter the warnings you see if

 $Service->{DisplayName}
[download]

is undef.

I would suggest doing a check for "exists $Service->{DisplayName} " as soon as you enter the "for my $Service" loop, and ivoking code if it does not exist. You could also try to run this with the perl debugger, although the OLE module is hostile toward that, and produces a lot of noise.