#!/usr/bin/perl

use File::Find;
$dir = ".";
$name = "test1.dll";
filefind($name);

 sub filefind
 {
 # my $aName = @_;
 # my $file = $File::Find::aName;
  my @dirs = ($dir);
  find(\&mysub, @dirs);
  return @files;
 }
 print "files are @files\n";
 sub mysub 
 {
   if ($_ =~ $name)
   {
   
    push @files, $_;
 
   }
 }