#The enxt two lines are only for reference
#$t = new Net::Telnet (Timeout => 1000);
#$t->open("10.10.4.11");
$t->cmd(reboot);