Here's code that just prints a listing of every file in the current directory:

#!/usr/bin/perl -w

opendir(DIR, ".");

@files = readdir(DIR);

closedir(DIR);

foreach $file (@files) {

print "$filen";

}