my $dir = $entry;
open(FILE, "> $dir") or die "Can't open file, $dir: $!";

##</code><code>##

my $file = $entry;
open(FILE, "> $file") or die "Can't open file, $file: $!";