/dir1/file1
/dir two/file2

##</code><code>##

foreach my $dir (glob("*")) {
  foreach  my $file (glob("$dir/*")) {
      print "[$file]\n";
  }
}

##</code><code>##


use File::Glob qw(bsd_glob);
foreach my $dir (bsd_glob("*")) {
  foreach  my $file (bsd_glob("$dir/*")) {
      print "file [$file]\n";
  }
}