sub exec_command {
    system("doConnect() $cmd_login $ssh_bin $startTime $duration $auth");
}

while (...) {
        sub doConnect {
	      $cmd_login = "$user\@$host";
	      $ssh_bin = `which ssh`; chomp $ssh_bin;
	      exec_command();
	}
	doConnect();