foreach(readdir(PRINT))
{
  #do work
}

##</code><code>##

#Skip . and ..
if(($_ eq ".") or ($_ eq ".."))
{next;}