$t = new Net::Telnet (Timeout => 10,
                              Prompt => '/Provaris GmbH/');
$t->open("10.0.10.61");
$t->login($host, $password);
@lines = $t->cmd("show slot");
print @lines;