opendir DIR, 'dir/to/somewhere/'; 
while(my $contents = readdir(<DIR>)){ 
   #make sure its a file or folder 
} 
closedir(DIR);

 
my @matches; 
 
opendir DIR, 'dir/to/where/ever'; 
while (my $file = readdir(DIR)){ 
 my ($name,$type) = split(/\./,$file); 
 next if $type =~ /\w{3}/; #skip folders 
 next if $file eq "." or $file eq ".."; 
 
 push @maches, $file if $name =~ /abc/; #saves the matcheing file if it matches abc 
 next; 
} 
closedir DIR; 
 
print "found matches:\n"; 
 
for (@matches){ 
print "$_ \n"; 
}

Quote
Is there any way to pass argument to read function.