if (foo()) {
    print "Everything is copacetic!\n";
} else {
    print "Whoops! Something went terribly wrong!\n";
}

##</code><code>##

if (foo()) {
    print "Everything is copacetic!\n";
} else {
    print "Error: $!\n";
}

##</code><code>##

($value, $errorMsg) = foo();

if ($value) {
    print "Everything is copacetic\n";
} else {
    print "Error: $errorMsg\n";
}