请教perl expect如何记录

perl的expect可以实现自动telnet，这是我们知道的。
现在有这样一个需求，有一个文件：
1.1.1.1
2.2.2.2
3.3.3.3
4.4.4.4
.........

通过expect依次登陆文件中的每个ip地址，要求实现：
如果能telnet，则记录为“success 相应的ip地址”；如果不能telnet，则记录为“fail  相应的ip地址”。

请教高手，能实现吗？