danger++

It's interesting however that your script even gets that far:

$ perl -e'print (stat($file))[8];'
syntax error at -e line 1, near ")["
Execution of -e aborted due to compilation errors.
[download]

____________
Makeshifts last the longest.