Select Code to Download

use File::Find;

...
    !($File::Find::prune |= ($dev != $File::Find::topdev))
    && print("$name\n");
}

($File::Find::topdev) = lstat("/");