sleep 1 while $running; close(NAMES);