use Net::Telnet;
my $telnetAC = new Net::Telnet( Timeout => 30,Port => $ACtelnetport ) or die "connect failed: $!";

line21: $telnetAC->cmd("exe reboot");
$telnetAC->waitfor('/(y/n)/i');
$telnetAC->print("y");