my $directory = "/home/e/Doc/AutoMation";

chdir $directory;
opendir( DIR, "." );

for my $file ( readdir DIR ) {
    next unless -f $file;
    open( my $in_fh, '<', $file );
    …
}