File Perl

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