Select Code to Download

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

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