opendir(DIRHANDLE,"/usr/darren") || die "file to open";

 @FILES = grep !/^\.\.?$/, readdir DIRHANDLE;

 while (<@FILES>)
  {

   chop();
   $REC     = $_;
   @LINEREC = split(/\./,$REC);

  print "$REC\n";

  }

 closedir(DIRHANDLE);