#!/usr/bin/perl -w
use strict;

my $file = "junk";
open (FH, "< $file") or die "Can't open $file for read: $!";
my @lines;
while (<FH>) {
    push (@lines, $_);
}
close FH or die "Cannot close $file: $!";

print @lines;    # see if it worked