my $dir = 'c:/';
opendir DIR, $dir or die "Oops cna't open $dir $!\n";
my @files = grep { /\.pl$/ } readdir DIR;
close DIR;
$_ = $dir.$_ for @files; # add full path

print "Here are all the files:\n";
print "$_\n" for @files;