File Perl

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