Select Code to Download

if (-d $pathname) {
  # $pathname exists and is a directory
...
  # $pathname doesn't even exist
  # ...
}

if (-d $d) {
  open FILE, "$d/$f" or die "Open failed";
...
else {
  die "No directory $d";
}

open FILE, "$d/$f" or die "Open failed";