Return to Perl/再帰読み込みで、ファイルサイズを計算する