CPAN　Net::Telnetをインストールする

# perl -MCPAN -e shell
初回はいくつか設定を聞かれるがデフォルト通り。

CPAN> install Net::Telnet

・・・・
Removing previously used /.cpan/build/Net-Telnet-3.03
CPAN.pm: Going to build J/JR/JROGERS/Net-Telnet-3.03.tar.gz
Checking if your kit is complete...
Looks good
Writing Makefile for Net::Telnet
   -- NOT OK
Running make test
 Can't test without successful make
Running make install
 make had returned bad status, install seems impossible

cpan> quit

ダウンロードはできたがインストールはうまくいっていないため、
個別に行う。

# cd /.cpan/build/Net-Telnet-3.03/
# make
※もしここでパスが通っていない場合はパスを設定。
# make install

サンプルプログラム

use strict;
use Net::Telnet;

# 接続環境
my $host = 'hoge';    　# 接続ホスト
my $user = 'hama';    　# ユーザ名
my $pass = '******';  　# パスワード
my $prompt = '/[\$%#>] $/';# プロンプト(正規表現)

my $telnet = new Net::Telnet(
       Timeout => 10,
);

#接続を開始する
$telnet->open($host);

#login出力を待ち、ユーザ名を送信
$telnet->waitfor('/login:/i');
$telnet->print($user);

#Password出力を待ちパスワードを送信
$telnet->waitfor('/Password:/i');
$telnet->print($pass);

# プロンプト出力を待つ
$telnet->waitfor($prompt);

# コマンド１を送信
my $result;
$telnet->print("pwd");
($result) = $telnet->waitfor($prompt);
print $result;

# コマンド２を送信
$telnet->print("ls");
($result) = $telnet->waitfor($prompt);
print $result;

# 接続の切断
$telnet->close;