use Net::Telnet();
$t = new Net::Telnet (Timeout => 30, Errmode => 'return', 
 Prompt =>  '/> $/');
 $t->open("10.30.201.225");
 
@lines = $t->cmd("/"); #Fails with a time out message
# @lines = $t->cmd("menu"); Works but isn't an option on most of the printers in the environment.
print @lines;