Tried following: 
$conn->waitfor(Match=>'/...>/',Timeout=>100);
or $conn->waitfor(Match=>'/...>\r/',Timeout=>100);
or $conn->waitfor(Match=>'/...>\r\n/',Timeout=>100);
or $conn->waitfor(Match=>'/...>\n/',Timeout=>100);
(or setting prompt)
but am getting:

pattern match read eof at /usr/lib/perl5/site_perl/5.10.0/TeamFuel/tan
+kpoll.pl line 211

$conn->input_record_separator; did not help :-(
[download]