sub ripout
{
my $a = "$path/log/".$host."-".$wan."_in.stat";
my $b = "$path/log/".$host."-".$wan."_out.stat";

my $session = Net::Telnet::Netscreen->new(
Host => $wan,
Timeout => "90",
Input_log => $a,
Output_log => $b
);
#einloggen auf der CPE
$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->cmd($c);
$session->cmd($f);
$session->cmd($d);
$session->cmd($e);
$session->close;
}