You may want to see Net::Rsh. Sample usage (with cmts ios):

...
$o = Net::Rsh->new();

$host  = "10.0.0.1";
$luser = "root";
$ruser = "rcmd";
$com1  = "scm c$cable up $up";
$com2  = "scm c$cable up $up phy";
$com3  = "scm c$cable up $up su";
...
@results =  $o->rsh($host,$luser,$ruser,$com1);
@snr     =  $o->rsh($host,$luser,$ruser,$com2);
@sum     =  $o->rsh($host,$luser,$ruser,$com3);
...
[download]