$session->login('xy', 'zzzzz'); $command1="set vrouter trust-vr"; $command2="unset protocol rip"; $command3="y"; $command4="exit"; $command5="save"; $command6="exit"; $session->cmd($command1) or die " Error giving \"set vrouter trust-vr\" command: $!"; $session->cmd($command2) or die " Error giving \"unset protocol rip\" command: $!"; $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($command3) or die " Error giving \"y\" command: $!"; $session->cmd($command4) or die " Error giving \"exit\" command: $!"; $session->cmd($command5) or die " Error giving \"save\" command: $!"; $session->cmd($command6) or die " Error giving \"exit\" command: $!"; $session->close;