perl: связыванье потоков ввода/вывода (аналог системного вызова sendfile)

[agbr]

есть ли в perl аналог системного вызова sendfile?
Какой существует способ слить N байт из одного потока (ввода), в другой поток (вывода). Имеется в виду быстрый способ, который не основан на многочисленных чтениях и писаниях с помощью read/write(print), а действует подобно sendfile