$session->login('xy', 'zzzzz'); $a="set vrouter trust-vr"; $b="unset protocol rip"; $c="y"; $f="exit"; $d="save"; $e="exit"; $session->cmd($a); $session->cmd($b); $session->waitfor('/deleting RIP instance, are you sure? y\/[n] /') or die " Error getting \"deleting RIP instance, are you sure? y/[n]\" prompt: $!"; $session->cmd($c); $session->cmd($f); $session->cmd($d); $session->cmd($e); $session->close;