opendir(DIR,".") or die "$!";
my @files=readdir DIR;

close DIR;