>>497
ところで、selectしっぱなしで良いのん？
{
my $oldfh = select FILE; # FILEをデフォルトにして、元のを保管
$| = 1; # バッファリングしない設定を変えて
select $oldfh; # デフォルトのハンドルを元に戻す
}