kyle@x:~$ cat perlmonks.pl
#!/usr/bin/perl
use strict;
use warnings;
my @file_lines;
while ( my $line = <> ) {
print "The line is: $line";
push @file_lines, $line;
}
kyle@x:~$ cat file.txt
line one
line two
line three
kyle@x:~$ perl perlmonks.pl < file.txt
The line is: line one
The line is: line two
The line is: line three