my $abs_d = './';
my @f;
opendir(DIR,$abs_d) or die;
for my $filename ( readdir(DIR) ){
   next if $filename=~/^\.+$/;
   push @f, $filename;
   last if $#f == 4;
}