Errors

• You could:

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