#!/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(".");