#!/usr/bin/perl -w
###################################################
#
# Name: perl_example5.pl
# Display Lines using an array
# Author: Bill Kraynek
# Created November 13, 2006
#
####################################################
$file_name = $ARGV[0];
open(FILEIN,"$file_name") || die "Cannot open \"$file_name\" file\n";
# read file into array line by line
@array = <FILEIN>;
# output array
print @array;
# remove trailing end of lines
chomp(@array);
# output using foreach
foreach $x (@array) {
	print "$x\n";
}
close(FILEIN);
open(FILEIN,"$file_name") || die "Cannot open \"$file_name\" file\n";
while ( <FILEIN> ) {
	print $_;
}
close(FILEIN);