>>318
Perl 5.6系で実行する、マジお薦め。
5.8系なら print を send に書きかえる。
うろ覚えだけど、そんな感じ。