Reading Files from a directory in perl.

#!/usr/bin/perl -w

# Given Directory
my $directory = 'c:\windows';

opendir(DIR,$directory);
my @files1 = readdir(DIR);

foreach $file1 (@files1) {
    print $file1;
}

closedir(DIR);

# Current Directory
@files = <*>;
foreach $file (@files) {
    print $file . "\n";
}

A link to further reading directories: Here