PerlのFIND::BINを使ってモジュール読み込み

需要は無いと思うけど、勝手にモジュールをインストールできない環境で一時的にでもモジュールを使いたいときはFIND::BINがある。
例えばperlスクリプトと同じディレクトリにtmplibを作り、その中にモジュールを置いた場合は以下のようになる。

use FindBin;

BEGIN { push(@INC, "$FindBin::Bin/tmplib"); }

require "$FindBin::Bin/tmplib/Net/Telnet/Cisco.pm";