Help for this page

Select Code to Download

Select or download this

#!perl -l

...
print(-e $0 ? "not deleted" : "deleted");

__DATA__

Select or download this
```
not deleted
deleted
```