use strict;
use warnings;
use List::Util qw(maxstr);

my $dir = '.'; 
opendir DIR, $dir; 
my @dirs=grep -d "$dir/$_",readdir DIR; 
closedir DIR; 
my $str = maxstr @dirs;
print $str, "\n";