从文件抓任意行

perl -e '$count = 10; @line = <>; for (1..$count) { print $line[int rand @line] }'

例如：

% cat /etc/passwd | perl -e '$count = 10; @line = <>; for (1..$count) { print $line[int rand @line] }'