perl -MFile::Spec -le "print for grep !-d, File::Spec->path"