コマンドバッファリング

#select関数で$fhをデフォルトの出力先に設定
#デフォルトの出力ハンドル（通常はstdout）を$fhsにセーブ
my $fhs = select $fh;

#コマンドバッファリングを有効にする
$| = 1;

#デフォルトのファイルハンドルを元に戻す
select $fhs;

特殊変数 $| に1を設定するとコマンドバッファリングが有効になる。
コマンドバッファリングはデフォルトの出力先に対して有効になる。
select関数は現在（select関数実行前）のデフォルトの出力先を返却する。