Example 6-3. examples/files/open_missing_file.pl

#!/usr/bin/perl
use strict;
use warnings;

if (open my $fh, '<', "nosuch") {
    # should do here something
} else {
    warn $!;
}