Miroslav Semora wrote: > to samozrejme dela neco jineho, opravuji se > > while (defined($_ = <ARGV>)) { > (); > } No nevim, jestli je uplne nejkratsi, ale je skutecne hodne kratka: $ echo | time perl -e 'while (defined($_ = <ARGV>)) { (); }' real 0.015 user 0.005 sys 0.008 $ :-) P. BTW, neni nejaky problem mezi newsy a maillistem?