Read till the end of the file

     
#!/usr/bin/perl
while(<>){
   print "$.\t$_";
   if (eof){
      print "-" x 30, "\n";
      close(ARGV);
   }
}

1.	The read Function (fread)
2.	Read file content to a scalar variable
3.	Read from a file
4.	Read hash value from a file
5.	Read line splitted by space
6.	Read only the last file line from a text file
7.	Read the first line of a local file
8.	Reading More than One Line
9.	Reading a directory all at once with an array: Use an array with the readdir command, instead of a scalar variable
10.	Reading from a Pipe
11.	Reading from a file
12.	Reading from the Filehandle
13.	Reading one line from the file handle STDIN.
14.	Reading the contents of a directory: change to that directory and then use the glob command
15.	Reads an entire input file into an array.
16.	Reads lines from a file and prints them.
17.	Using read function in while loop
18.	Using read function to read a file
19.	The read Function reads a number of bytes into a variable from a filehandle.
20.	Contents of the entire file are printed
21.	Numbering Lines
22.	To read a number of bytes from a file: $bytes_read = read(filehandle, $var, $length, $offset);
23.	To read from a file:

Read till the end of the file : file read « File « Perl