Perlについて質問です。

特定のディレクトリ構成を再帰的にたどり
一覧を表示しようとしています。
(将来的には各ディレクトリごとに処理を行う予定です)

しかし再帰的には表示されず一部のみ
表示されてしまいます。

私は何を間違っているのでしょうか？

【list.cgi】
#!/usr/bin/perl -wT
print IContent-type: text/htmlononI;
use File::Find;
$dir = G.G;
find(o&print_dir, $dir);
sub print_dir { print $File::Find::name, I<br />I; }

【$dir = G.Gのときの出力結果】
.
./list.cgi
./test2

【$dir = Gtest1Gのときの出力結果】
test1
test1/test13

【ディレクトリ構成(ftpでfindした結果)】
> find *
list.cgi
test1
test1/test11
test1/test11/test111
test1/test12
test1/test13
test1/test13/test131
test2