Perl　再帰処理でファイル検索をするとカレントフォルダしか検索してくれない。

WindowsでStrawberry_Perl5.24を使用しています。

再帰処理のことを勉強しています。"Higher-Order Perl"という書籍を参考にしてファイル検索スクリプトを書いたのですが、特定の条件分岐で下層のディレクトリを探してくれなくなってしまいました。

もちろん本の通りにコピペすれば問題なく動作するのですが、少しの書き方の違いでなぜここまで動作が異なるのか、理由がわかりません。

テスト用のフォルダやファイルを作ったりしてデバッカで動きを追ったりしたのですが、いまひとつ理解できませんでした。

ファイルテスト演算子"-d"を使った条件分岐 と単純なファイル名とディレクトリ記号との文字列比較による条件分岐は意味が異なるのでしょうか？

うまく動作しない理由が知りたいです。よろしくお願い致します。

発生している問題・エラーメッセージ

0     :     . 
0     :     ./R1 
0     :     ./R2 
718     :     ./recursive4.pl 

該当のソースコード

use strict;
use warnings;

use Data::Dumper;
use utf8;
use Encode;




sub recursive {
    my ( $base_dir,  $func ) = @_;
    my $DIR;



    $func->($base_dir);


    if (-d $base_dir){
    my $f; 
    if (!opendir $DIR, $base_dir) { warn "can't open directry"; return;}

    while ($f = readdir $DIR){ 
            next if $f eq '.' || $f eq '..'; #正しく動作する条件分岐
            next if ( -d $f ) ;        #うまく動作してくれない条件分岐

               recursive( "$base_dir/$f", $func); 


     }
    }
}



my $code_ref = sub {
                     printf "%d \t:\t %s \n", -s $_[0], $_[0]; 

                   };

recursive(".", $code_ref);

補足情報(言語/FW/ツール等のバージョンなど)

本来のフォルダ構成は下記のようになっています。

0     :     . 
0     :     ./AAA 
0     :     ./AAA/a1 
0     :     ./AAA/a2 
0     :     ./AAA/a3 
0     :     ./AAA/a4 
0     :     ./BBB 
0     :     ./BBB/b1 
0     :     ./BBB/b2 
0     :     ./BBB/b3 
0     :     ./R1 
0     :     ./R2 
718     :     ./recursive4.pl 

これは本に書いてあったサンプルです。

sub print_dir {
    printf "%6d  %s\n",-s $_[0], $_[0] ;
}




sub dir_walk { 


my ($top, $code) = @_;
my $DIR;

$code->($top);

if (-d $top) {
    my $file;
    unless (opendir $DIR, $top) {
            warn "Couldn't open directory $top: $!; skipping.\n";
            return;
            }
    while ($file = readdir $DIR) {
            next if $file eq '.' || $file eq '..';
            dir_walk("$top/$file", $code);
        }
    }
}