#!/usr/bin/perl



opendir(TOP, ".");



foreach $dir (readdir(TOP)) {

        next if $dir eq ".";

        next if $dir eq "..";

        if ( -d $dir ) {

                opendir(SUB, $dir);

                foreach $subdir (readdir(SUB)) {

                        next if $subdir eq ".";

                        next if $subdir eq "..";

                        if ( -d "$dir/$subdir" ) {

                                $mtime = (stat("$dir/$subdir"))[9];

                                print "$dir $subdir " . localtime($mtime) . "\n";

                        }

                }

                closedir(SUB);

        }

}



closedir(TOP);