#!/usr/bin/perl

use warnings;
use strict;

use Cwd;

sub myfind {
    my $wd = shift;
    my @a = <$wd/*>;
    my @dirs = ();

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

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

myfind(getcwd());