Select Code to Download

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

...
    open( my $in_fh, '<', $file );
    …
}

opendir( DIR, $directory );
for my $file ( readdir DIR ) {
...
    open( my $in_fh, '<', "$directory/$file" );
    …
}