9 lines
133 B
Perl
9 lines
133 B
Perl
|
|
open FILEHANDLE, "<file.txt" or die "Can not open file";
|
|
|
|
*FILEHANDLE2 = *FILEHANDLE;
|
|
|
|
while (<FILEHANDLE2>) {
|
|
print;
|
|
}
|