open FILE, '<', $filename
  or die "Can't open $filename: $!\n";
my @lines = <FILE>;
close FILE
  or die "Can't close $filename: $!\n";