while(1) { # keep looping for ever
		my $queuedvar =	$go->dequeue; # sleep until something is in the queue
		if ($queuedvar eq "2") { # if it's a 2 terminate
			last;
		}
		# else go on
		if ($use_startstop == 1) {
				$startstoppdu = "True";
		}
		elsif ($use_startstop == 0) {
				$startstoppdu = "False";
		}
			
			$send_data = "PUT:" . $nautilus_auto . ":" . $startstoppdu;
			$session->send($send_data);
			$session->recv($received_data,10000);
			my @data = split(/:/,$received_data);
			$nautilus_win=$data[1];
			$startstoppdu = $data[2];
			if ($startstoppdu eq "True") {
				$use_startstop = 1;
			}
			elsif ($startstoppdu eq "False") {
				$use_startstop = 0;
			}
		}