從文件抓任意行

　　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] }'