my $file = 'quiz4.txt';
...
open(my $fh, '<', $file)
    or die "Cannot open file '$file' for reading, stopped";
...
close $fh
    or die "Cannot close file '$file', stopped";