http://qs321.pair.com?node_id=259570

ergowolf has asked for the wisdom of the Perl Monks concerning the following question:

I want to track which users are running Kazaa to try and track down a bandwidth issue on my network. Why doesn't this code work?
foreach (@machine) { if (-e "//$_/c$/Program Files/KaZaA Lite/kazaa.exe") { print "KAZAA LITE IS INSTALLED ON $_.\n"; } else { print "Kazaa lite was not detected on $_.\n"; } if (-e "//$_/c$/Program Files/Kazaa/kazaa.exe") { print "KAZAA IS INSTALLED ON $_.\n"; } else { print "Kazaa was not detected on $_.\n"; } }