PerlでCiscoスイッチを操作

Ciscoスイッチの作業を自動化したいと思ったらNet::Telnet::Ciscoモジュール。
http://search.cpan.org/~joshua/Net-Telnet-Cisco-1.10/Cisco.pm
かなり使いやすいです。

use Net::Telnet::Cisco;

($hostname, $loginPass, $enablePass) = qw(sw01 cisco cisco);

$session = Net::Telnet::Cisco->new(Host => $hostname);
$session->login(Password => $loginPass);

if ($session->enable($enablePass)) {
    print $session->cmd("show running-config");
} else {
    warn "Can’t enable: " . $session->errmsg;
}

$session->close;

これをマネてRuby版を作ろうとしてるんですがなかなか進まず。
自由に触れるスイッチがないし。
Ciscoスイッチ買うかな・・・