#!/usr/bin/perl

open(DIR, "find . -type d -maxdepth 2 |") or die "couldn't run find: $!\n";
my @directories = grep(!/^\.\.?$/, <DIR>);
chomp(@directories);
close(DIR);

for my $index (0..$#directories) {
	$directories[$index] =~ s/^\.\///;
}

#opendir(DIR, ".") or die "couldn't open .: $!\n";
#my @directories = sort(grep(!/^\.\.?$/, readdir(DIR)));
#closedir(DIR);

my $counter = 0;
my $dirmatch = 0;

for my $dir (@directories) {
	$counter++;
	if ($dir =~ /^$ARGV[0]/i and $dirmatch == 0) {
		$dirmatch = $counter;
	}
	if (lc($dir) eq lc($ARGV[0])) {
		$dirmatch = $counter;
	}
}

printf("You are %02.2f%% done.\n", ($dirmatch / $counter * 100));