opendir DIR, $dir;
my @file = grep { $_ ne '.' && $_ ne '..' } readdir DIR;
closedir DIR;