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;

Technorati Tags: perl, zte, zte 831