#!/usr/bin/perl -w

use strict;
use FileHandle;

my $localdir="c:\\temp";
opendir  LOCALDIR, "$localdir";
my @local_files = grep !/^\.\.?$/, readdir LOCALDIR;
closedir LOCALDIR;
my $n=@local_files;
for (my $i=0; $i<$n; $i++){
   print "$local_files[$i]\n"; 
}