perl语言中实现rman命令操作

pigfly

需要编程实现如下逻辑：

rman target "/" \nocatalog
Rman>change archivelog all validate;
（延迟10分钟）
Rman>change archivelog all validate;

perl里面有telnet的模块，有没有rman的模块呢？

FOR_FREE

open rman, "|rman target "/" \nocatalog";
print rman "change archivelog all validate;\n";
exec sleep XXXX;
print rman "change archivelog all validate;\n"
close rman;

pigfly

忘了说了，是要telnet到远程主机上实现。
如何实现？
谢谢！

上面的代码中open rman中的rman是一个变量吧？