#!perl -w
use strict;
opendir (DIR, './') || die "can't open dir:: $! \n";
for my $file(readdir(DIR)) {
    next if -d $file;
    print $file."\n";
}