Errors, cont.

• Instead

my $ok = open MESSAGES, '>', 'msgs';
if ( ! $ok ) {
    print "Oh no!\n";
}