Help for this page

Select Code to Download

Select or download this

foreach(@dir) {
    if (-d$_) {print $_," is a directory.\n";
}

Select or download this

foreach(@dir) {
   my $subdir = $dir.$_;    
   if (-d$_) {print $_," is a directory.\n";
}