foreach( glob './*'){
  print qq($_\n); # if necessary
  # Do some work with the file name (available as $_)
};