#!/usr/bin/perl -w 
print "Content-type: text/html\r\n\r\n"; 
use Net::Telnet (); 
use CGI qw (:standard);; 
my $user = 'username'; 
my $pass = 'password'; 
my $host = "192.168.1.254"; 
$t = new Net::Telnet (Timeout => 1, Prompt => '/\$ $/i'); 
$t->open($host); 
$t->waitfor('/: $/i'); 
$t->print($user); 
$t->waitfor('/ : $/i'); 
$t->print($pass); 
$t->waitfor('/>$/i'); 
@lines = $t->print ("system settime"); # it takes router uptime info 
($output) = $t->waitfor('/=>$/i'); 
print "<pre>"; #for nice output 
print $output; 
$t->print("exit"); 
print "</pre>"; #for nice output

##</code><code>##

@lines = $t->print ("turn off dhcp server"); #for example 
($output) = $t->waitfor('/=>$/i'); #waits prompt
print $output;