#!/usr/bin/perl
use strict;
use warnings;

my $dir = 'c:\\temp';
opendir(DIRHANDLE, $dir)
	or warn "Could not open directory $dir.\n";
my @dirs = grep (!/^\.\.?$/ && -f "$dir/$_", readdir(DIRHANDLE));

foreach (@dirs) {
	print "$_\n";
}