Perl でyahooのページから株価を取得する

perl でyahooのページから株価を取得するサンプル（以下のサンプルでは、東京電力の株価を取得して表示） 以前にもWeb::Scraperを使った似たような内容の投稿を書いています。
http://chaos-fractal.blogspot.jp/2011/12/perl.html