File Perl

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