On Wed, Sep 07, 2005 at 01:26:23PM +0400, Sergey Vlasov wrote:
> $SIG{'PIPE'} = 'IGNORE' ?
> 
> Или вообще perl -MList::Util=shuffle -e "print((shuffle(<>))[0..$n])" и
> убрать head.

Эх.  Это же ортогональная функциональность.
А что-нибудь вроде -- будет работать?

shuffle | (head -10; cat >/dev/null) | sort ...