You know what you want is in file descriptor 3, you say? See perlfunc:open, If you specify '<&=N', where N is a number, then Perl will do an equivalent of C's fdopen() of that file descriptor;