$cmd = "kill -INT $vpnpid";
	KILLVPN:
	print "Sending kill commands to child processes:\n$cmd\n";
	$exp1->send_slow("$cmd\n");
	sleep 3;
	my $ps = `ps -p $vpnpid | grep -v grep | grep -v TTY`;
	if ($ps =~ /\w+/) {
		print "VPN process $vpnpid not dead yet\n $ps \nSending kill -TERM\n";
		$cmd = "kill -TERM $vpnpid";
		goto KILLVPN;
	}
	$exp1->hard_close();