#!/perl/bin/perl -w

use strict;
use Data::Dumper;

my $dir       = 'C:/WINNT';
my $searchext = 'dll';

opendir(DIR, $dir) || die qq(Could not open directory "$dir"\n);

my @files = grep { /\.${searchext}$/ } readdir(DIR);

print Dumper(\@files);