#!/usr/bin/perl

use strict;
use warnings;

sub scan
{
        my $dirname=shift;
        opendir my $d,$dirname or die "Can't open $dirname: $!";
        my @files=readdir $d;
        closedir $d;
        for my $n (@files) {
                next if $n=~/^\.{1,2}$/;
                if (-d "$dirname/$n") {
                        print "DIR: $dirname/$n\n";
                        scan("$dirname/$n");
                } else {
                        print "NOTDIR: $dirname/$n\n";
                }
        }
}

scan(".");

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

sub scan
{
        my $topdir=shift;

        my @todo=($topdir);
        while (@todo) {
                my $dirname=shift @todo;
                opendir my $d,$dirname or die "Can't open $dirname: $!";
                while (my $n=readdir $d) {
                        next if $n=~/^\.{1,2}$/;
                        if (-d "$dirname/$n") {
                                print "DIR: $dirname/$n\n";
                                push @todo,"$dirname/$n";
                        } else {
                                print "NOTDIR: $dirname/$n\n";
                        }
                }
                closedir $d;
        }
}

scan(".");