in reply to telnet module

Try adding a linefeed:
$telnetAC->print("y\n");

[download]

In Section Seekers of Perl Wisdom