programming-examples/perl/File/open (FILEHANDLE2, &=FILEHANDLE).pl

open FILEHANDLE, "<file.txt" or die "Can not open file";

open (FILEHANDLE2, "<&=FILEHANDLE");

while (<FILEHANDLE2>) {
    print;
}