     |
Not sure what version of Perl you have on your server?
1) Telnet into your server, then run the following command:
$ perl -v
This command will print-out the version of Perl installed on your web server.
A perl script to reboot ZTE ZXDSL 831 modem/router. Very useful if you want to schedule a reboot of the router.
#!/usr/bin/perl
use Net::Telnet;
$t = Net::Telnet->new( Timeout => 10 );
$t->open(”192.168.1.1″);
$t->waitfor(’/Login user: $/i’);
$t->print(’username’);
$t->waitfor(’/Password: $/i’);
$t->print(’password’);
$commands = “reboot\n”;
@response = $t->cmd(”$commands”);
print @response;
FACEBOOK
GOOGLE+
TWITTER
RSS
