Select Code to Download

 #!/usr/bin/env perl -w -s
use Net::Telnet ();

...
                                      @lines = $t ->cmd ('yes');
                                      print @lines;   
                                                       }

                                      elsif($choice eq'2'){
                                      @lines =$t ->cmd ("sysconfig -r"
+);
...
                                      $t ->cmd ('yes');
                                      print @lines; 
                                                         }

                                       print "\n\n\n Entrer pour conti
+nuer... (99 pour quitter)\n";
                                       my $exit = <>;
...
                                                        }
                                             }
                                }