1 #!/usr/bin/perl -w
2 # File: print_file.pl
3 # Author: Tom Large - tlarge@thelug.org
4 # Location: http://www.thelug.org/docs/
5 # Description: Echos a text file to STDOUT (screen).
6
7 @ARGV = ('./test.log' ) unless @ARGV;
8
9 while( <> )
10 {
11 print;
12 }