next if $haveit{ $file };
  $ftp->get($file) or next;
  push @newupdate, $file;
}

$ftp->quit;

open(NEWUPDATE,">>./lastupdate.txt")
  or die "Couldn't open lastupdate.txt for appending ($!)";
print NEWUPDATE map "$_\n", @newupdate;
close(NEWUPDATE)
  or die "Closing lastupdate.txt failed ($!)";