>>339
Bechmarkモジュールを使ってみました。

use Benchmark qw(:hireswallclock) ;
$t0 = new Benchmark;
print "何か入力して:";
$str = <STDIN>;
chomp $str;
$t1 = new Benchmark;
$td = timediff($t1, $t0);
print "たかが$strを入力するくらいで", (split(/\s/, timestr($td)))[0], "秒もかかるの？(ﾌﾟｯ\n";


ところで、特にJperlを使わなければいけない理由が無いなら、Encodeモジュールの
perldoc読んで、そろそろactiveperl 5.8.2に移行したほうがいいと思いますよ。