#!/usr/bin/perl

use strict;
use warnings;
use Net::Telnet::Netscreen;

my $inlog = "$path/log/".$host."-".$wan."_in.stat";
my $outlog = "$path/log/".$host."-".$wan."_out.stat";
my $wan = "your_wan"; #hier Deinen Wert eintragen

my $session = Net::Telnet::Netscreen->new(
   Host => $wan,
   Timeout => 90,
   Input_log => $inlog,
   Output_log => $outlog,
) or die Net::Telnet::Netscreen::error();

#einloggen auf der CPE
$session->login('xy', 'zzzzz') or die $session->error; #hier Deine Werte eintragen

my $set_router = "set vrouter trust-vr";
my $unset_protocol = "unset protocol rip";
my $yes = "y";
my $exit = "exit";
my $save = "save";

$session->cmd($set_router) or die $session->error;
$session->cmd($unset_protocol) or die $session->error;

$session->waitfor('/deleting RIP instance, are you sure\? y\/\[n\]/') or die $session->error;

$session->cmd($yes) or die $session->error;
$session->cmd($exit) or die $session->error;

$session->close or die $session->error;