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