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