1  #!/usr/bin/perl -w
2  use strict;
3
4  $file = "/path/file";
5  open (<FH>, "< $file") or die "Can't open $file for read: $!";
6  my @lines = <FH>;    
9  close FH or die "Cannot close $file: $!"; 
10