open(FH, "txtfile") or die "Cannot open the file";
while (<FH>) {
     chomp($_);
     if (-d $_) {
          ---do your stuff here
     } else {
          print "Directory does not exist";
     }
}
close(FH);