# 1st form
sub traverse_file
{
    my $dir = shift;
    if (-d $dir) {
        while (<$dir/*>) {
            traverse_file($_);
        }
    } else {
        print "$dir\n";
    }   
}