while (!$stop) {
  sleep 1;
}

$sender->join;