organize and document scripts collection

[perl-cwmp.git] / scripts / tcli.pl

diff --git a/scripts/tcli.pl b/scripts/tcli.pl
index 162a4b4..e3786c3 100755 (executable)
--- a/scripts/tcli.pl
+++ b/scripts/tcli.pl
@@ -4,7 +4,7 @@ use strict;
 use Expect;
 use Net::Telnet;
 
-my $modem = '192.168.1.254';
+my $modem = '10.0.0.138';
 my @commands = (
 ':system config led=flash',
 );