in reply to perl script to print just directory names

One way is to use File::Basename::basename: 
use File::Basename;

# in your loop...

            print basename($file);

[download]

See also:

In Section Seekers of Perl Wisdom