#!/usr/bin/perl -w
use strict;

#print all files ending in .pl within C:/Temp directory

my $dir = 'C:/Temp';
opendir (DIR, $dir) || die "couldn't open $dir";

my @files = grep {/\.pl$/}readdir DIR;
print "@files";