UNIXでもTeraTerm の様なマクロを使いたい

Windowsでは,TeraTermという便利なtelnetクライアントがある。telnet以外にもシリアルや,最近はsshも使えたりして非常に便利なのだが,マクロが使えるのもありがたい。ネットワーク機器などにtelnetでログインして情報を取得したり,コンフィグを書き換えたりと便利に使える。
同じようなことをunixでやろうとしたときに,いいtelnetクライアントが見つからなかった。そこで見つけたのがPerlで使う,Net::Telnetと言うモジュール。
これを使うと,マクロのようなことができる。

#!/usr/bin/perl

use Net::Telnet ();

#my($output,$telnet,$password,$rhost);

$rhost = 'hogehoge';
$password = 'fugafuga';

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

$telnet->open("$rhost");
$telnet->waitfor('/Password: $/i');
$telnet->print("$password");
$telnet->waitfor('/>$/i');
$telnet->print('enable');
$telnet->waitfor('/Password: $/i');
$telnet->print("$password");
$telnet->waitfor('/#$/i');
$telnet->print('sho vlan bri');
($output) = $telnet->waitfor('/#$/i');
print $output;

$telnet->close;

exit;