perl 获取SSH命令结果

在windows+ActivePerl的环境下，安装OpenSSH for Windows，现在希望通过perl来一个函数功能：

输入：IP，用户名，密码，命令，协议
处理：登入指定IP的交换机，执行，命令
输出：交换机返回的结果

例子：
输入：1.1.1.1，cisco，cisco，show version，SSH1

希望在不适用Net::SSH::W32Perl，Net::SSH::Expect的包的情况下实现，希望各位给一下建议。

比如：
print `ls -a`; (这样的感觉)

多谢^_^

回复 suxiaochen


    qx(ls -a);

你如果再加个条件“希望在不使用 Perl 的情况下实现”的话，
我就可以把你这个帖子移到别版了。

可惜现在还移不了。