#start input of commands in telnet
#----------------------------------
$telnet->waitfor('/\# $/i');
$telnet->print($cmd); 
@output=$telnet->waitfor('/Press any key to continue \(Q to quit\)/'); 
$telnet->print('c'); #virtually press c key 
@output2=$telnet->waitfor('/\# $/i');
push(@output,@output2); 
$telnet->waitfor('/dfs=l,gdmgll<>ifdgoij$/i'); #creates a deliberate error for error logging
$fault=$telnet->errmsg;
$telnet->close;
if ($fault!="")
{
print "you got an error;
}