And here is my masterpiece for today, wc.p6:

say*(split"",int(7e10+ +*(=open@ARGS[0])))[1..11]
[download]

Just a quick explanation about +*(=open@ARGS[0]): the * operator forces the = $filehandle operator into list context, which is then forced into scalar context to count the number of lines in the file. Similar idea is used right after say, to force the ourput of split[] into list context without the use of join.

Update: And of course, head.p6 along similar lines:

print*(=open@ARGS[0])[0..9]
[download]