opendir D, "pbed" or die;
while (my $file = readdir D) {
   if (-d "pbed/$file") {
      print "dir:  $file\n";
   } else {
      print "file: $file\n";
   }
}