It's not written in perl, it's written in C, and it uses splice() (one of the syscalls discussed in the post).