find( { wanted => \&get_files, preprocess => \&nodirs }, "$BASEDIR/$dir" );

    sub nodirs {
        grep !-d, @_;
    }