eval {
    # Code that might die
}; if ($@) {
    # Catch area
}

##</code><code>##

sub foo { return undef; }

my @x = foo();
if (@x) { print "foo() succeeded\n" } else { print "foo() failed\n";

##</code><code>##

# Create an ID to name hash
my %hash = map { $_->id, $_->name } @Objects;

Becomes:

# Create an ID to name hash
my %hash = map { $_->id => $_->name } @Objects;