7 my $modem = '10.0.0.138';
9 ':system config led=flash',
14 next if (/^#/ || /^\s*$/);
18 push @commands, ':system config led=off';
22 my $telnet = new Net::Telnet( $modem ) or die "Cannot telnet to $modem: $!\n";
23 my $exp = Expect->exp_init($telnet);
24 $exp->debug( $debug );
26 $exp->log_stdout( 1 );
28 my ( $username, $password ) = ('Administrator','');
31 $exp->expect($timeout, 'Username : ');
32 $exp->send("$username\r\n");
33 $exp->expect($timeout, 'Password :');
34 $exp->send("$password\r\n");
35 $exp->expect($timeout, '=>');
37 foreach my $cmd ( @commands ) {
38 $exp->send( "$cmd\r\n" );
39 $exp->expect($timeout, '=>');
42 $exp->send( "exit\r\n" );