open(FilesToGet, "FilesToGet.txt") 
  or die "can't open FilesToGet.txt: $!";
while (<FilesToGet>) {