my @filenames = readdir DIR;
  ...
  foreach my $file (@filenames)
  {
    if( -d $file or $file eq $0 )
    ...
  }