#!/usr/bin/perl

use warnings;
use strict;

use Cwd;

sub myfind {

    my $wd = shift;
    my @a = <*>;
    my @dirs = ();

    my $i;
    foreach $i (@a) {
        $i = "$wd/$i";
        if (-d $i) {
            push(@dirs, $i);
        }
    }

    my $adir;
    foreach $adir (@dirs) {
        print "$adir\n";
        myfind($adir);
    }
}

myfind(getcwd());