use Net::Telnet;

# Dati Connessione
$hostname = "192.168.0.1";
$username = "admin";
$password = "admin";

# Apertura Connessione
$t = new Net::Telnet(Timeout => 10, Prompt => '/# $/', Host => $hostname);

# Eseguo Login
$t->login($username, $password);

# Invio Comando di Reboot
@lines = $t->cmd("reboot");

# Chiudo la Connessione
$t->close;