Traversing Contents in Perl

#! /usr/bin/perl
# 从一个目录开始，递归遍历此目录下的所有目录
use warnings;
use strict;

sub do_something {
    open(FILE, '>', 'text_file.txt') or die $!;
    print FILE 'Traversing Contents';
    close FILE;
}

sub traversing {
    chdir($_[0]);
    my @files = glob('*');

    for my $f (@files) {
        if (-d $f) {
            over_d($f);
            do_something(); # 此行在开始的目录下不执行
            chdir('..');
        }
    }
}

# main
traversing('./'); # 从当前目录开始, let's go :)