sub files_in_dir{
  my $dir=shift;
  opendir D,$dir;
  my @f=readdir D;
  closedir D;
  if(scalar(@f)<=2){
    # no files in directory
    return 0;
  }else{
    # at least 1 file in directory
    return 1;
  } 
}