File Perl

open FILEHANDLE, "open FILEHANDLE2, "open (FILEHANDLE, "<&FILEHANDLE2");
while () {
    print;
}