Select Code to Download

my $path = "$dir/$entry";
open my $inFile, '<', $path, or die "Can't open '$path': $!\n";

use strict;
use warnings;
...
    open my $inFile, '<', $path, or die "Can't open '$path': $!\n";
    print <$inFile>;
}