#!/usr/bin/perl

use warnings;
use strict;

# myfind.pl

use Cwd;

sub myfind {
    my $wd = shift;
    my @dirs = listdir($wd, "dirs", "fullname");
    foreach my $adir (@dirs) {
        print "$adir\n";
        # Printing files inside directories:
        my @fnames = listdir($adir, "all", "localname");
        foreach my $afile (@fnames) {
            print "$afile\n";
        }
        print "\n";
        myfind($adir);
    }
}

sub listdir {
    my $dir = shift;
    my $select = shift;
    my $basename = shift;
    my $filename;
    my @files;
    opendir(DIR, $dir) or die;
    while($filename = readdir(DIR)) {
        next if ($filename eq "." || $filename eq "..");
        my $fullfname = "$dir/$filename";
        next if ($select eq "dirs" && ! -d $fullfname);
        if ($basename eq "fullname") {
            push(@files, $fullfname);
        } else {
            push(@files, $filename);
        }
    }
    close(DIR);
    return @files;
}

myfind(getcwd());