$t->telnetmode(1);
($prematch, $match) = $t->waitfor('/login:/');