While I understand this one, I prefer

```perl
# Header of the file
use constant NSCD_LOCK => "/var/lock/subsys/nscd";
# In this method
if (-e NSCD_LOCK) {
    unlink(NSCD_LOCK);
}
```
    unlink(