getbbs のサンプル

use LWP::Simple; # これはプログラムの最初に書く。

sub getbbs {
　my $url = 'http://...' # これは実際のURLにする。
　return get($url);
}

ていうかこんなサブルーチン使わないでそのまま get() やっちゃえばいいかな。

上記のように LWP::Simple を使って串を通したい場合は環境変数の http_proxy
に串のURLをセットしておく ( proxy.hoge.com のポート 8080 の場合は
http_proxy に http://proxy.hoge.com:8080/ をセットしておくか
perl プログラムの中で $ENV{'http_proxy'} = 'http://proxy.hoge.com:8080/';
をやっておく)。
LWP::UserAgent を使って自分で色々する場合は $ua->proxy(...) のような
設定方法も使える。