How to manipulate directories

1. Opening directories $indir = "osegwa"; opendir(indirhandle,$indir); 2. Listing directories $indir = "osegwa"; opendir(indirhandle,$indir); @files = grep{!/^\./} readdir(indirhandle); #remove dots by grep foreach $file (@files) { print "$file\n"; }