http://www.perlmonks.org?node_id=8562

You code says 'use stict;'
And yet I found a bareword
This script will not run.