Use of uninitialized value in exists at C:/Perl/lib/Services.pm line 6
+7.
Use of uninitialized value in string ne at C:/Perl/lib/Services.pm lin
+e 78.
[download]

You don't use the exists function anywhere in the code you posted so the warning is probably from some other code that you haven't posted.