It's not clear that the OP wants to recurse down a tree and process each of the files found. Even if that is the case, as it stands your sample code will try and process directories as well as files. At least the following line should be added to sub run before the system call:

  return if ! -f $File::Find::name;
[download]

For scanning a single directory it is probably easier to simple use opendir/readdir as shown elsewhere.