#!/usr/bin/perl
use strict;
use warnings;

my $dir ="./files";
opendir ( DIR, $dir ) || die "Error in opening dir $dir\n";
while( (my $filename = readdir(DIR))){

print "$filename\n";

open (FH,'<',"./files/$filename");


while(<FH>){
##do your task here}
}