line 5: my $filename = <STDIN>;
line 6: open (FH,$filename);
line 7: my @Lines = <FH>;
line 8: close FH;