$ tree
.
|-- 503170.pl
|-- A
|-- B
`-- C
$ perl -l 503170.pl
All done
$ tree
.
|-- 503170.pl
|-- A
|   `-- analysis_completed
|-- B
`-- C