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