個人用メモ

# Effective Perl 60項 より
select((select(FILE), $|=1)[0]);