sub filefind
 {
 # my $aName = @_;
 # my $file = $File::Find::aName;
  my @dirs = ($dir);
  find(\&mysub, @dirs);
  return @files;
 }