perlで短縮URLを展開(5.8用)

Perl

http://blog.livedoor.jp/dankogai/archives/51573012.html

にあったperlスクリプトだが5.10でないと動かないので以下のように修正した。

perl -MLWP::UserAgent -le \
        'print LWP::UserAgent->new->head(shift)->request->uri \
	http://j.mp/dankogai

"-E"と"say()"を変更した。以下、perl 5.10の変更点は以下。

http://fleur.hio.jp/perldoc/perl/5.10.0/pod/perl5100delta.mix.html