open my $fh, '<', $file or die $!;
my @lines = <$fh>;
close $fh;

print $_ for @lines